[Home] [Help]
PACKAGE BODY: APPS.OKL_LEASE_QUOTE_SERVICE_PVT_W
Source
1 package body okl_lease_quote_service_pvt_w as
2 /* $Header: OKLEQUSB.pls 120.2 2006/02/13 07:28:44 asawanka noship $ */
3 procedure rosetta_table_copy_in_p17(t out nocopy okl_lease_quote_service_pvt.line_relation_tbl_type, a0 JTF_NUMBER_TABLE
4 , a1 JTF_NUMBER_TABLE
5 , a2 JTF_VARCHAR2_TABLE_100
6 , a3 JTF_NUMBER_TABLE
7 , a4 JTF_VARCHAR2_TABLE_100
8 , a5 JTF_NUMBER_TABLE
9 , a6 JTF_NUMBER_TABLE
10 , a7 JTF_VARCHAR2_TABLE_300
11 , a8 JTF_VARCHAR2_TABLE_2000
12 , a9 JTF_VARCHAR2_TABLE_2000
13 , a10 JTF_VARCHAR2_TABLE_100
14 ) as
15 ddindx binary_integer; indx binary_integer;
16 begin
17 if a0 is not null and a0.count > 0 then
18 if a0.count > 0 then
19 indx := a0.first;
20 ddindx := 1;
21 while true loop
22 t(ddindx).id := a0(indx);
23 t(ddindx).object_version_number := a1(indx);
24 t(ddindx).source_line_type := a2(indx);
25 t(ddindx).source_line_id := a3(indx);
26 t(ddindx).related_line_type := a4(indx);
27 t(ddindx).related_line_id := a5(indx);
28 t(ddindx).amount := a6(indx);
29 t(ddindx).short_description := a7(indx);
30 t(ddindx).description := a8(indx);
31 t(ddindx).comments := a9(indx);
32 t(ddindx).record_mode := a10(indx);
33 ddindx := ddindx+1;
34 if a0.last =indx
35 then exit;
36 end if;
37 indx := a0.next(indx);
38 end loop;
39 end if;
40 end if;
41 end rosetta_table_copy_in_p17;
42 procedure rosetta_table_copy_out_p17(t okl_lease_quote_service_pvt.line_relation_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
43 , a1 out nocopy JTF_NUMBER_TABLE
44 , a2 out nocopy JTF_VARCHAR2_TABLE_100
45 , a3 out nocopy JTF_NUMBER_TABLE
46 , a4 out nocopy JTF_VARCHAR2_TABLE_100
47 , a5 out nocopy JTF_NUMBER_TABLE
48 , a6 out nocopy JTF_NUMBER_TABLE
49 , a7 out nocopy JTF_VARCHAR2_TABLE_300
50 , a8 out nocopy JTF_VARCHAR2_TABLE_2000
51 , a9 out nocopy JTF_VARCHAR2_TABLE_2000
52 , a10 out nocopy JTF_VARCHAR2_TABLE_100
53 ) as
54 ddindx binary_integer; indx binary_integer;
55 begin
56 if t is null or t.count = 0 then
57 a0 := JTF_NUMBER_TABLE();
58 a1 := JTF_NUMBER_TABLE();
59 a2 := JTF_VARCHAR2_TABLE_100();
60 a3 := JTF_NUMBER_TABLE();
61 a4 := JTF_VARCHAR2_TABLE_100();
62 a5 := JTF_NUMBER_TABLE();
63 a6 := JTF_NUMBER_TABLE();
64 a7 := JTF_VARCHAR2_TABLE_300();
65 a8 := JTF_VARCHAR2_TABLE_2000();
66 a9 := JTF_VARCHAR2_TABLE_2000();
67 a10 := JTF_VARCHAR2_TABLE_100();
68 else
69 a0 := JTF_NUMBER_TABLE();
70 a1 := JTF_NUMBER_TABLE();
71 a2 := JTF_VARCHAR2_TABLE_100();
72 a3 := JTF_NUMBER_TABLE();
73 a4 := JTF_VARCHAR2_TABLE_100();
74 a5 := JTF_NUMBER_TABLE();
75 a6 := JTF_NUMBER_TABLE();
76 a7 := JTF_VARCHAR2_TABLE_300();
77 a8 := JTF_VARCHAR2_TABLE_2000();
78 a9 := JTF_VARCHAR2_TABLE_2000();
79 a10 := JTF_VARCHAR2_TABLE_100();
80 if t.count > 0 then
81 a0.extend(t.count);
82 a1.extend(t.count);
83 a2.extend(t.count);
84 a3.extend(t.count);
85 a4.extend(t.count);
86 a5.extend(t.count);
87 a6.extend(t.count);
88 a7.extend(t.count);
89 a8.extend(t.count);
90 a9.extend(t.count);
91 a10.extend(t.count);
92 ddindx := t.first;
93 indx := 1;
94 while true loop
95 a0(indx) := t(ddindx).id;
96 a1(indx) := t(ddindx).object_version_number;
97 a2(indx) := t(ddindx).source_line_type;
98 a3(indx) := t(ddindx).source_line_id;
99 a4(indx) := t(ddindx).related_line_type;
100 a5(indx) := t(ddindx).related_line_id;
101 a6(indx) := t(ddindx).amount;
102 a7(indx) := t(ddindx).short_description;
103 a8(indx) := t(ddindx).description;
104 a9(indx) := t(ddindx).comments;
105 a10(indx) := t(ddindx).record_mode;
106 indx := indx+1;
107 if t.last =ddindx
108 then exit;
109 end if;
110 ddindx := t.next(ddindx);
111 end loop;
112 end if;
113 end if;
114 end rosetta_table_copy_out_p17;
115
116 procedure create_service(p_api_version NUMBER
117 , p_init_msg_list VARCHAR2
118 , p_transaction_control VARCHAR2
119 , p3_a0 NUMBER
120 , p3_a1 NUMBER
121 , p3_a2 VARCHAR2
122 , p3_a3 VARCHAR2
123 , p3_a4 VARCHAR2
124 , p3_a5 VARCHAR2
125 , p3_a6 VARCHAR2
126 , p3_a7 VARCHAR2
127 , p3_a8 VARCHAR2
128 , p3_a9 VARCHAR2
129 , p3_a10 VARCHAR2
130 , p3_a11 VARCHAR2
131 , p3_a12 VARCHAR2
132 , p3_a13 VARCHAR2
133 , p3_a14 VARCHAR2
134 , p3_a15 VARCHAR2
135 , p3_a16 VARCHAR2
136 , p3_a17 VARCHAR2
137 , p3_a18 NUMBER
138 , p3_a19 VARCHAR2
139 , p3_a20 NUMBER
140 , p3_a21 DATE
141 , p3_a22 NUMBER
142 , p3_a23 VARCHAR2
143 , p3_a24 VARCHAR2
144 , p3_a25 VARCHAR2
145 , p4_a0 JTF_NUMBER_TABLE
146 , p4_a1 JTF_NUMBER_TABLE
147 , p4_a2 JTF_VARCHAR2_TABLE_100
148 , p4_a3 JTF_NUMBER_TABLE
149 , p4_a4 JTF_VARCHAR2_TABLE_100
150 , p4_a5 JTF_NUMBER_TABLE
151 , p4_a6 JTF_NUMBER_TABLE
152 , p4_a7 JTF_VARCHAR2_TABLE_300
153 , p4_a8 JTF_VARCHAR2_TABLE_2000
154 , p4_a9 JTF_VARCHAR2_TABLE_2000
155 , p4_a10 JTF_VARCHAR2_TABLE_100
156 , p5_a0 VARCHAR2
157 , p5_a1 NUMBER
158 , p5_a2 VARCHAR2
159 , p5_a3 VARCHAR2
160 , p5_a4 VARCHAR2
161 , p5_a5 VARCHAR2
162 , p5_a6 VARCHAR2
163 , p5_a7 VARCHAR2
164 , p5_a8 NUMBER
165 , p5_a9 VARCHAR2
166 , p5_a10 NUMBER
167 , p5_a11 NUMBER
168 , p5_a12 NUMBER
169 , p5_a13 NUMBER
170 , p6_a0 JTF_NUMBER_TABLE
171 , p6_a1 JTF_DATE_TABLE
172 , p6_a2 JTF_NUMBER_TABLE
173 , p6_a3 JTF_NUMBER_TABLE
174 , p6_a4 JTF_NUMBER_TABLE
175 , p6_a5 JTF_NUMBER_TABLE
176 , p6_a6 JTF_NUMBER_TABLE
177 , p6_a7 JTF_NUMBER_TABLE
178 , p6_a8 JTF_VARCHAR2_TABLE_100
179 , p6_a9 JTF_VARCHAR2_TABLE_100
180 , p7_a0 VARCHAR2
181 , p7_a1 NUMBER
182 , p7_a2 VARCHAR2
183 , p7_a3 VARCHAR2
184 , p7_a4 VARCHAR2
185 , p7_a5 VARCHAR2
186 , p7_a6 VARCHAR2
187 , p7_a7 VARCHAR2
188 , p7_a8 NUMBER
189 , p7_a9 VARCHAR2
190 , p7_a10 NUMBER
191 , p7_a11 NUMBER
192 , p7_a12 NUMBER
193 , p7_a13 NUMBER
194 , p8_a0 JTF_NUMBER_TABLE
195 , p8_a1 JTF_DATE_TABLE
196 , p8_a2 JTF_NUMBER_TABLE
197 , p8_a3 JTF_NUMBER_TABLE
198 , p8_a4 JTF_NUMBER_TABLE
199 , p8_a5 JTF_NUMBER_TABLE
200 , p8_a6 JTF_NUMBER_TABLE
201 , p8_a7 JTF_NUMBER_TABLE
202 , p8_a8 JTF_VARCHAR2_TABLE_100
203 , p8_a9 JTF_VARCHAR2_TABLE_100
204 , x_service_id out nocopy NUMBER
205 , x_return_status out nocopy VARCHAR2
206 , x_msg_count out nocopy NUMBER
207 , x_msg_data out nocopy VARCHAR2
208 )
209
210 as
211 ddp_service_rec okl_svc_pvt.svcv_rec_type;
212 ddp_assoc_asset_tbl okl_lease_quote_service_pvt.line_relation_tbl_type;
213 ddp_payment_header_rec okl_lease_quote_cashflow_pvt.cashflow_header_rec_type;
214 ddp_payment_level_tbl okl_lease_quote_cashflow_pvt.cashflow_level_tbl_type;
215 ddp_expense_header_rec okl_lease_quote_cashflow_pvt.cashflow_header_rec_type;
216 ddp_expense_level_tbl okl_lease_quote_cashflow_pvt.cashflow_level_tbl_type;
217 ddindx binary_integer; indx binary_integer;
218 begin
219
220 -- copy data to the local IN or IN-OUT args, if any
221
222
223
224 ddp_service_rec.id := p3_a0;
225 ddp_service_rec.object_version_number := p3_a1;
226 ddp_service_rec.attribute_category := p3_a2;
227 ddp_service_rec.attribute1 := p3_a3;
228 ddp_service_rec.attribute2 := p3_a4;
229 ddp_service_rec.attribute3 := p3_a5;
230 ddp_service_rec.attribute4 := p3_a6;
231 ddp_service_rec.attribute5 := p3_a7;
232 ddp_service_rec.attribute6 := p3_a8;
233 ddp_service_rec.attribute7 := p3_a9;
234 ddp_service_rec.attribute8 := p3_a10;
235 ddp_service_rec.attribute9 := p3_a11;
236 ddp_service_rec.attribute10 := p3_a12;
237 ddp_service_rec.attribute11 := p3_a13;
238 ddp_service_rec.attribute12 := p3_a14;
239 ddp_service_rec.attribute13 := p3_a15;
240 ddp_service_rec.attribute14 := p3_a16;
241 ddp_service_rec.attribute15 := p3_a17;
242 ddp_service_rec.inv_item_id := p3_a18;
243 ddp_service_rec.parent_object_code := p3_a19;
244 ddp_service_rec.parent_object_id := p3_a20;
245 ddp_service_rec.effective_from := p3_a21;
246 ddp_service_rec.supplier_id := p3_a22;
247 ddp_service_rec.short_description := p3_a23;
248 ddp_service_rec.description := p3_a24;
249 ddp_service_rec.comments := p3_a25;
250
251 okl_lease_quote_service_pvt_w.rosetta_table_copy_in_p17(ddp_assoc_asset_tbl, p4_a0
252 , p4_a1
253 , p4_a2
254 , p4_a3
255 , p4_a4
256 , p4_a5
257 , p4_a6
258 , p4_a7
259 , p4_a8
260 , p4_a9
261 , p4_a10
262 );
263
264 ddp_payment_header_rec.type_code := p5_a0;
265 ddp_payment_header_rec.stream_type_id := p5_a1;
266 ddp_payment_header_rec.status_code := p5_a2;
267 ddp_payment_header_rec.arrears_flag := p5_a3;
268 ddp_payment_header_rec.frequency_code := p5_a4;
269 ddp_payment_header_rec.dnz_periods := p5_a5;
270 ddp_payment_header_rec.dnz_periodic_amount := p5_a6;
271 ddp_payment_header_rec.parent_object_code := p5_a7;
272 ddp_payment_header_rec.parent_object_id := p5_a8;
273 ddp_payment_header_rec.quote_type_code := p5_a9;
274 ddp_payment_header_rec.quote_id := p5_a10;
275 ddp_payment_header_rec.cashflow_header_id := p5_a11;
276 ddp_payment_header_rec.cashflow_object_id := p5_a12;
277 ddp_payment_header_rec.cashflow_header_ovn := p5_a13;
278
279 okl_lease_quote_cashflow_pvt_w.rosetta_table_copy_in_p21(ddp_payment_level_tbl, p6_a0
280 , p6_a1
281 , p6_a2
282 , p6_a3
283 , p6_a4
284 , p6_a5
285 , p6_a6
286 , p6_a7
287 , p6_a8
288 , p6_a9
289 );
290
291 ddp_expense_header_rec.type_code := p7_a0;
292 ddp_expense_header_rec.stream_type_id := p7_a1;
293 ddp_expense_header_rec.status_code := p7_a2;
294 ddp_expense_header_rec.arrears_flag := p7_a3;
295 ddp_expense_header_rec.frequency_code := p7_a4;
296 ddp_expense_header_rec.dnz_periods := p7_a5;
297 ddp_expense_header_rec.dnz_periodic_amount := p7_a6;
298 ddp_expense_header_rec.parent_object_code := p7_a7;
299 ddp_expense_header_rec.parent_object_id := p7_a8;
300 ddp_expense_header_rec.quote_type_code := p7_a9;
301 ddp_expense_header_rec.quote_id := p7_a10;
302 ddp_expense_header_rec.cashflow_header_id := p7_a11;
303 ddp_expense_header_rec.cashflow_object_id := p7_a12;
304 ddp_expense_header_rec.cashflow_header_ovn := p7_a13;
305
306 okl_lease_quote_cashflow_pvt_w.rosetta_table_copy_in_p21(ddp_expense_level_tbl, p8_a0
307 , p8_a1
308 , p8_a2
309 , p8_a3
310 , p8_a4
311 , p8_a5
312 , p8_a6
313 , p8_a7
314 , p8_a8
315 , p8_a9
316 );
317
318
319
320
321
322 -- here's the delegated call to the old PL/SQL routine
323 okl_lease_quote_service_pvt.create_service(p_api_version,
324 p_init_msg_list,
325 p_transaction_control,
326 ddp_service_rec,
327 ddp_assoc_asset_tbl,
328 ddp_payment_header_rec,
329 ddp_payment_level_tbl,
330 ddp_expense_header_rec,
331 ddp_expense_level_tbl,
332 x_service_id,
333 x_return_status,
334 x_msg_count,
335 x_msg_data);
336
337 -- copy data back from the local variables to OUT or IN-OUT args, if any
338
339
340
341
342
343
344
345
346
347
348
349
350 end;
351
352 procedure update_service(p_api_version NUMBER
353 , p_init_msg_list VARCHAR2
354 , p_transaction_control VARCHAR2
355 , p3_a0 NUMBER
356 , p3_a1 NUMBER
357 , p3_a2 VARCHAR2
358 , p3_a3 VARCHAR2
359 , p3_a4 VARCHAR2
360 , p3_a5 VARCHAR2
361 , p3_a6 VARCHAR2
362 , p3_a7 VARCHAR2
363 , p3_a8 VARCHAR2
364 , p3_a9 VARCHAR2
365 , p3_a10 VARCHAR2
366 , p3_a11 VARCHAR2
367 , p3_a12 VARCHAR2
368 , p3_a13 VARCHAR2
369 , p3_a14 VARCHAR2
370 , p3_a15 VARCHAR2
371 , p3_a16 VARCHAR2
372 , p3_a17 VARCHAR2
373 , p3_a18 NUMBER
374 , p3_a19 VARCHAR2
375 , p3_a20 NUMBER
376 , p3_a21 DATE
377 , p3_a22 NUMBER
378 , p3_a23 VARCHAR2
379 , p3_a24 VARCHAR2
380 , p3_a25 VARCHAR2
381 , p4_a0 JTF_NUMBER_TABLE
382 , p4_a1 JTF_NUMBER_TABLE
383 , p4_a2 JTF_VARCHAR2_TABLE_100
384 , p4_a3 JTF_NUMBER_TABLE
385 , p4_a4 JTF_VARCHAR2_TABLE_100
386 , p4_a5 JTF_NUMBER_TABLE
387 , p4_a6 JTF_NUMBER_TABLE
388 , p4_a7 JTF_VARCHAR2_TABLE_300
389 , p4_a8 JTF_VARCHAR2_TABLE_2000
390 , p4_a9 JTF_VARCHAR2_TABLE_2000
391 , p4_a10 JTF_VARCHAR2_TABLE_100
392 , p5_a0 VARCHAR2
393 , p5_a1 NUMBER
394 , p5_a2 VARCHAR2
395 , p5_a3 VARCHAR2
396 , p5_a4 VARCHAR2
397 , p5_a5 VARCHAR2
398 , p5_a6 VARCHAR2
399 , p5_a7 VARCHAR2
400 , p5_a8 NUMBER
401 , p5_a9 VARCHAR2
402 , p5_a10 NUMBER
403 , p5_a11 NUMBER
404 , p5_a12 NUMBER
405 , p5_a13 NUMBER
406 , p6_a0 JTF_NUMBER_TABLE
407 , p6_a1 JTF_DATE_TABLE
408 , p6_a2 JTF_NUMBER_TABLE
409 , p6_a3 JTF_NUMBER_TABLE
410 , p6_a4 JTF_NUMBER_TABLE
411 , p6_a5 JTF_NUMBER_TABLE
412 , p6_a6 JTF_NUMBER_TABLE
413 , p6_a7 JTF_NUMBER_TABLE
414 , p6_a8 JTF_VARCHAR2_TABLE_100
415 , p6_a9 JTF_VARCHAR2_TABLE_100
416 , p7_a0 VARCHAR2
417 , p7_a1 NUMBER
418 , p7_a2 VARCHAR2
419 , p7_a3 VARCHAR2
420 , p7_a4 VARCHAR2
421 , p7_a5 VARCHAR2
422 , p7_a6 VARCHAR2
423 , p7_a7 VARCHAR2
424 , p7_a8 NUMBER
425 , p7_a9 VARCHAR2
426 , p7_a10 NUMBER
427 , p7_a11 NUMBER
428 , p7_a12 NUMBER
429 , p7_a13 NUMBER
430 , p8_a0 JTF_NUMBER_TABLE
431 , p8_a1 JTF_DATE_TABLE
432 , p8_a2 JTF_NUMBER_TABLE
433 , p8_a3 JTF_NUMBER_TABLE
434 , p8_a4 JTF_NUMBER_TABLE
435 , p8_a5 JTF_NUMBER_TABLE
436 , p8_a6 JTF_NUMBER_TABLE
437 , p8_a7 JTF_NUMBER_TABLE
438 , p8_a8 JTF_VARCHAR2_TABLE_100
439 , p8_a9 JTF_VARCHAR2_TABLE_100
440 , x_return_status out nocopy VARCHAR2
441 , x_msg_count out nocopy NUMBER
442 , x_msg_data out nocopy VARCHAR2
443 )
444
445 as
446 ddp_service_rec okl_svc_pvt.svcv_rec_type;
447 ddp_assoc_asset_tbl okl_lease_quote_service_pvt.line_relation_tbl_type;
448 ddp_payment_header_rec okl_lease_quote_cashflow_pvt.cashflow_header_rec_type;
449 ddp_payment_level_tbl okl_lease_quote_cashflow_pvt.cashflow_level_tbl_type;
450 ddp_expense_header_rec okl_lease_quote_cashflow_pvt.cashflow_header_rec_type;
451 ddp_expense_level_tbl okl_lease_quote_cashflow_pvt.cashflow_level_tbl_type;
452 ddindx binary_integer; indx binary_integer;
453 begin
454
455 -- copy data to the local IN or IN-OUT args, if any
456
457
458
459 ddp_service_rec.id := p3_a0;
460 ddp_service_rec.object_version_number := p3_a1;
461 ddp_service_rec.attribute_category := p3_a2;
462 ddp_service_rec.attribute1 := p3_a3;
463 ddp_service_rec.attribute2 := p3_a4;
464 ddp_service_rec.attribute3 := p3_a5;
465 ddp_service_rec.attribute4 := p3_a6;
466 ddp_service_rec.attribute5 := p3_a7;
467 ddp_service_rec.attribute6 := p3_a8;
468 ddp_service_rec.attribute7 := p3_a9;
469 ddp_service_rec.attribute8 := p3_a10;
470 ddp_service_rec.attribute9 := p3_a11;
471 ddp_service_rec.attribute10 := p3_a12;
472 ddp_service_rec.attribute11 := p3_a13;
473 ddp_service_rec.attribute12 := p3_a14;
474 ddp_service_rec.attribute13 := p3_a15;
475 ddp_service_rec.attribute14 := p3_a16;
476 ddp_service_rec.attribute15 := p3_a17;
477 ddp_service_rec.inv_item_id := p3_a18;
478 ddp_service_rec.parent_object_code := p3_a19;
479 ddp_service_rec.parent_object_id := p3_a20;
480 ddp_service_rec.effective_from := p3_a21;
481 ddp_service_rec.supplier_id := p3_a22;
482 ddp_service_rec.short_description := p3_a23;
483 ddp_service_rec.description := p3_a24;
484 ddp_service_rec.comments := p3_a25;
485
486 okl_lease_quote_service_pvt_w.rosetta_table_copy_in_p17(ddp_assoc_asset_tbl, p4_a0
487 , p4_a1
488 , p4_a2
489 , p4_a3
490 , p4_a4
491 , p4_a5
492 , p4_a6
493 , p4_a7
494 , p4_a8
495 , p4_a9
496 , p4_a10
497 );
498
499 ddp_payment_header_rec.type_code := p5_a0;
500 ddp_payment_header_rec.stream_type_id := p5_a1;
501 ddp_payment_header_rec.status_code := p5_a2;
502 ddp_payment_header_rec.arrears_flag := p5_a3;
503 ddp_payment_header_rec.frequency_code := p5_a4;
504 ddp_payment_header_rec.dnz_periods := p5_a5;
505 ddp_payment_header_rec.dnz_periodic_amount := p5_a6;
506 ddp_payment_header_rec.parent_object_code := p5_a7;
507 ddp_payment_header_rec.parent_object_id := p5_a8;
508 ddp_payment_header_rec.quote_type_code := p5_a9;
509 ddp_payment_header_rec.quote_id := p5_a10;
510 ddp_payment_header_rec.cashflow_header_id := p5_a11;
511 ddp_payment_header_rec.cashflow_object_id := p5_a12;
512 ddp_payment_header_rec.cashflow_header_ovn := p5_a13;
513
514 okl_lease_quote_cashflow_pvt_w.rosetta_table_copy_in_p21(ddp_payment_level_tbl, p6_a0
515 , p6_a1
516 , p6_a2
517 , p6_a3
518 , p6_a4
519 , p6_a5
520 , p6_a6
521 , p6_a7
522 , p6_a8
523 , p6_a9
524 );
525
526 ddp_expense_header_rec.type_code := p7_a0;
527 ddp_expense_header_rec.stream_type_id := p7_a1;
528 ddp_expense_header_rec.status_code := p7_a2;
529 ddp_expense_header_rec.arrears_flag := p7_a3;
530 ddp_expense_header_rec.frequency_code := p7_a4;
531 ddp_expense_header_rec.dnz_periods := p7_a5;
532 ddp_expense_header_rec.dnz_periodic_amount := p7_a6;
533 ddp_expense_header_rec.parent_object_code := p7_a7;
534 ddp_expense_header_rec.parent_object_id := p7_a8;
535 ddp_expense_header_rec.quote_type_code := p7_a9;
536 ddp_expense_header_rec.quote_id := p7_a10;
537 ddp_expense_header_rec.cashflow_header_id := p7_a11;
538 ddp_expense_header_rec.cashflow_object_id := p7_a12;
539 ddp_expense_header_rec.cashflow_header_ovn := p7_a13;
540
541 okl_lease_quote_cashflow_pvt_w.rosetta_table_copy_in_p21(ddp_expense_level_tbl, p8_a0
542 , p8_a1
543 , p8_a2
544 , p8_a3
545 , p8_a4
546 , p8_a5
547 , p8_a6
548 , p8_a7
549 , p8_a8
550 , p8_a9
551 );
552
553
554
555
556 -- here's the delegated call to the old PL/SQL routine
557 okl_lease_quote_service_pvt.update_service(p_api_version,
558 p_init_msg_list,
559 p_transaction_control,
560 ddp_service_rec,
561 ddp_assoc_asset_tbl,
562 ddp_payment_header_rec,
563 ddp_payment_level_tbl,
564 ddp_expense_header_rec,
565 ddp_expense_level_tbl,
566 x_return_status,
567 x_msg_count,
568 x_msg_data);
569
570 -- copy data back from the local variables to OUT or IN-OUT args, if any
571
572
573
574
575
576
577
578
579
580
581
582 end;
583
584 procedure duplicate_service(p_api_version NUMBER
585 , p_init_msg_list VARCHAR2
586 , p_transaction_control VARCHAR2
587 , p_source_service_id NUMBER
588 , p4_a0 NUMBER
589 , p4_a1 NUMBER
590 , p4_a2 VARCHAR2
591 , p4_a3 VARCHAR2
592 , p4_a4 VARCHAR2
593 , p4_a5 VARCHAR2
594 , p4_a6 VARCHAR2
595 , p4_a7 VARCHAR2
596 , p4_a8 VARCHAR2
597 , p4_a9 VARCHAR2
598 , p4_a10 VARCHAR2
599 , p4_a11 VARCHAR2
600 , p4_a12 VARCHAR2
601 , p4_a13 VARCHAR2
602 , p4_a14 VARCHAR2
603 , p4_a15 VARCHAR2
604 , p4_a16 VARCHAR2
605 , p4_a17 VARCHAR2
606 , p4_a18 NUMBER
607 , p4_a19 VARCHAR2
608 , p4_a20 NUMBER
609 , p4_a21 DATE
610 , p4_a22 NUMBER
611 , p4_a23 VARCHAR2
612 , p4_a24 VARCHAR2
613 , p4_a25 VARCHAR2
614 , p5_a0 JTF_NUMBER_TABLE
615 , p5_a1 JTF_NUMBER_TABLE
616 , p5_a2 JTF_VARCHAR2_TABLE_100
617 , p5_a3 JTF_NUMBER_TABLE
618 , p5_a4 JTF_VARCHAR2_TABLE_100
619 , p5_a5 JTF_NUMBER_TABLE
620 , p5_a6 JTF_NUMBER_TABLE
621 , p5_a7 JTF_VARCHAR2_TABLE_300
622 , p5_a8 JTF_VARCHAR2_TABLE_2000
623 , p5_a9 JTF_VARCHAR2_TABLE_2000
624 , p5_a10 JTF_VARCHAR2_TABLE_100
625 , p6_a0 VARCHAR2
626 , p6_a1 NUMBER
627 , p6_a2 VARCHAR2
628 , p6_a3 VARCHAR2
629 , p6_a4 VARCHAR2
630 , p6_a5 VARCHAR2
631 , p6_a6 VARCHAR2
632 , p6_a7 VARCHAR2
633 , p6_a8 NUMBER
634 , p6_a9 VARCHAR2
635 , p6_a10 NUMBER
636 , p6_a11 NUMBER
637 , p6_a12 NUMBER
638 , p6_a13 NUMBER
639 , p7_a0 JTF_NUMBER_TABLE
640 , p7_a1 JTF_DATE_TABLE
641 , p7_a2 JTF_NUMBER_TABLE
642 , p7_a3 JTF_NUMBER_TABLE
643 , p7_a4 JTF_NUMBER_TABLE
644 , p7_a5 JTF_NUMBER_TABLE
645 , p7_a6 JTF_NUMBER_TABLE
646 , p7_a7 JTF_NUMBER_TABLE
647 , p7_a8 JTF_VARCHAR2_TABLE_100
648 , p7_a9 JTF_VARCHAR2_TABLE_100
649 , p8_a0 VARCHAR2
650 , p8_a1 NUMBER
651 , p8_a2 VARCHAR2
652 , p8_a3 VARCHAR2
653 , p8_a4 VARCHAR2
654 , p8_a5 VARCHAR2
655 , p8_a6 VARCHAR2
656 , p8_a7 VARCHAR2
657 , p8_a8 NUMBER
658 , p8_a9 VARCHAR2
659 , p8_a10 NUMBER
660 , p8_a11 NUMBER
661 , p8_a12 NUMBER
662 , p8_a13 NUMBER
663 , p9_a0 JTF_NUMBER_TABLE
664 , p9_a1 JTF_DATE_TABLE
665 , p9_a2 JTF_NUMBER_TABLE
666 , p9_a3 JTF_NUMBER_TABLE
667 , p9_a4 JTF_NUMBER_TABLE
668 , p9_a5 JTF_NUMBER_TABLE
669 , p9_a6 JTF_NUMBER_TABLE
670 , p9_a7 JTF_NUMBER_TABLE
671 , p9_a8 JTF_VARCHAR2_TABLE_100
672 , p9_a9 JTF_VARCHAR2_TABLE_100
673 , x_service_id out nocopy NUMBER
674 , x_return_status out nocopy VARCHAR2
675 , x_msg_count out nocopy NUMBER
676 , x_msg_data out nocopy VARCHAR2
677 )
678
679 as
680 ddp_service_rec okl_svc_pvt.svcv_rec_type;
681 ddp_assoc_asset_tbl okl_lease_quote_service_pvt.line_relation_tbl_type;
682 ddp_payment_header_rec okl_lease_quote_cashflow_pvt.cashflow_header_rec_type;
683 ddp_payment_level_tbl okl_lease_quote_cashflow_pvt.cashflow_level_tbl_type;
684 ddp_expense_header_rec okl_lease_quote_cashflow_pvt.cashflow_header_rec_type;
685 ddp_expense_level_tbl okl_lease_quote_cashflow_pvt.cashflow_level_tbl_type;
686 ddindx binary_integer; indx binary_integer;
687 begin
688
689 -- copy data to the local IN or IN-OUT args, if any
690
691
692
693
694 ddp_service_rec.id := p4_a0;
695 ddp_service_rec.object_version_number := p4_a1;
696 ddp_service_rec.attribute_category := p4_a2;
697 ddp_service_rec.attribute1 := p4_a3;
698 ddp_service_rec.attribute2 := p4_a4;
699 ddp_service_rec.attribute3 := p4_a5;
700 ddp_service_rec.attribute4 := p4_a6;
701 ddp_service_rec.attribute5 := p4_a7;
702 ddp_service_rec.attribute6 := p4_a8;
703 ddp_service_rec.attribute7 := p4_a9;
704 ddp_service_rec.attribute8 := p4_a10;
705 ddp_service_rec.attribute9 := p4_a11;
706 ddp_service_rec.attribute10 := p4_a12;
707 ddp_service_rec.attribute11 := p4_a13;
708 ddp_service_rec.attribute12 := p4_a14;
709 ddp_service_rec.attribute13 := p4_a15;
710 ddp_service_rec.attribute14 := p4_a16;
711 ddp_service_rec.attribute15 := p4_a17;
712 ddp_service_rec.inv_item_id := p4_a18;
713 ddp_service_rec.parent_object_code := p4_a19;
714 ddp_service_rec.parent_object_id := p4_a20;
715 ddp_service_rec.effective_from := p4_a21;
716 ddp_service_rec.supplier_id := p4_a22;
717 ddp_service_rec.short_description := p4_a23;
718 ddp_service_rec.description := p4_a24;
719 ddp_service_rec.comments := p4_a25;
720
721 okl_lease_quote_service_pvt_w.rosetta_table_copy_in_p17(ddp_assoc_asset_tbl, p5_a0
722 , p5_a1
723 , p5_a2
724 , p5_a3
725 , p5_a4
726 , p5_a5
727 , p5_a6
728 , p5_a7
729 , p5_a8
730 , p5_a9
731 , p5_a10
732 );
733
734 ddp_payment_header_rec.type_code := p6_a0;
735 ddp_payment_header_rec.stream_type_id := p6_a1;
736 ddp_payment_header_rec.status_code := p6_a2;
737 ddp_payment_header_rec.arrears_flag := p6_a3;
738 ddp_payment_header_rec.frequency_code := p6_a4;
739 ddp_payment_header_rec.dnz_periods := p6_a5;
740 ddp_payment_header_rec.dnz_periodic_amount := p6_a6;
741 ddp_payment_header_rec.parent_object_code := p6_a7;
742 ddp_payment_header_rec.parent_object_id := p6_a8;
743 ddp_payment_header_rec.quote_type_code := p6_a9;
744 ddp_payment_header_rec.quote_id := p6_a10;
745 ddp_payment_header_rec.cashflow_header_id := p6_a11;
746 ddp_payment_header_rec.cashflow_object_id := p6_a12;
747 ddp_payment_header_rec.cashflow_header_ovn := p6_a13;
748
749 okl_lease_quote_cashflow_pvt_w.rosetta_table_copy_in_p21(ddp_payment_level_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 );
760
761 ddp_expense_header_rec.type_code := p8_a0;
762 ddp_expense_header_rec.stream_type_id := p8_a1;
763 ddp_expense_header_rec.status_code := p8_a2;
764 ddp_expense_header_rec.arrears_flag := p8_a3;
765 ddp_expense_header_rec.frequency_code := p8_a4;
766 ddp_expense_header_rec.dnz_periods := p8_a5;
767 ddp_expense_header_rec.dnz_periodic_amount := p8_a6;
768 ddp_expense_header_rec.parent_object_code := p8_a7;
769 ddp_expense_header_rec.parent_object_id := p8_a8;
770 ddp_expense_header_rec.quote_type_code := p8_a9;
771 ddp_expense_header_rec.quote_id := p8_a10;
772 ddp_expense_header_rec.cashflow_header_id := p8_a11;
773 ddp_expense_header_rec.cashflow_object_id := p8_a12;
774 ddp_expense_header_rec.cashflow_header_ovn := p8_a13;
775
776 okl_lease_quote_cashflow_pvt_w.rosetta_table_copy_in_p21(ddp_expense_level_tbl, p9_a0
777 , p9_a1
778 , p9_a2
779 , p9_a3
780 , p9_a4
781 , p9_a5
782 , p9_a6
783 , p9_a7
784 , p9_a8
785 , p9_a9
786 );
787
788
789
790
791
792 -- here's the delegated call to the old PL/SQL routine
793 okl_lease_quote_service_pvt.duplicate_service(p_api_version,
794 p_init_msg_list,
795 p_transaction_control,
796 p_source_service_id,
797 ddp_service_rec,
798 ddp_assoc_asset_tbl,
799 ddp_payment_header_rec,
800 ddp_payment_level_tbl,
801 ddp_expense_header_rec,
802 ddp_expense_level_tbl,
803 x_service_id,
804 x_return_status,
805 x_msg_count,
806 x_msg_data);
807
808 -- copy data back from the local variables to OUT or IN-OUT args, if any
809
810
811
812
813
814
815
816
817
818
819
820
821
822 end;
823
824 end okl_lease_quote_service_pvt_w;