[Home] [Help]
PACKAGE BODY: APPS.OKL_ASS_PVT_W
Source
1 package body okl_ass_pvt_w as
2 /* $Header: OKLIASSB.pls 120.3 2005/11/09 13:51:17 skgautam noship $ */
3 procedure rosetta_table_copy_in_p23(t out nocopy okl_ass_pvt.assv_tbl_type, a0 JTF_NUMBER_TABLE
4 , a1 JTF_NUMBER_TABLE
5 , a2 JTF_VARCHAR2_TABLE_100
6 , a3 JTF_VARCHAR2_TABLE_500
7 , a4 JTF_VARCHAR2_TABLE_500
8 , a5 JTF_VARCHAR2_TABLE_500
9 , a6 JTF_VARCHAR2_TABLE_500
10 , a7 JTF_VARCHAR2_TABLE_500
11 , a8 JTF_VARCHAR2_TABLE_500
12 , a9 JTF_VARCHAR2_TABLE_500
13 , a10 JTF_VARCHAR2_TABLE_500
14 , a11 JTF_VARCHAR2_TABLE_500
15 , a12 JTF_VARCHAR2_TABLE_500
16 , a13 JTF_VARCHAR2_TABLE_500
17 , a14 JTF_VARCHAR2_TABLE_500
18 , a15 JTF_VARCHAR2_TABLE_500
19 , a16 JTF_VARCHAR2_TABLE_500
20 , a17 JTF_VARCHAR2_TABLE_500
21 , a18 JTF_VARCHAR2_TABLE_100
22 , a19 JTF_NUMBER_TABLE
23 , a20 JTF_VARCHAR2_TABLE_100
24 , a21 JTF_NUMBER_TABLE
25 , a22 JTF_VARCHAR2_TABLE_100
26 , a23 JTF_NUMBER_TABLE
27 , a24 JTF_NUMBER_TABLE
28 , a25 JTF_NUMBER_TABLE
29 , a26 JTF_VARCHAR2_TABLE_100
30 , a27 JTF_NUMBER_TABLE
31 , a28 JTF_NUMBER_TABLE
32 , a29 JTF_NUMBER_TABLE
33 , a30 JTF_NUMBER_TABLE
34 , a31 JTF_NUMBER_TABLE
35 , a32 JTF_NUMBER_TABLE
36 , a33 JTF_VARCHAR2_TABLE_100
37 , a34 JTF_VARCHAR2_TABLE_300
38 , a35 JTF_VARCHAR2_TABLE_2000
39 , a36 JTF_VARCHAR2_TABLE_2000
40 ) as
41 ddindx binary_integer; indx binary_integer;
42 begin
43 if a0 is not null and a0.count > 0 then
44 if a0.count > 0 then
45 indx := a0.first;
46 ddindx := 1;
47 while true loop
48 t(ddindx).id := a0(indx);
49 t(ddindx).object_version_number := a1(indx);
50 t(ddindx).attribute_category := a2(indx);
51 t(ddindx).attribute1 := a3(indx);
52 t(ddindx).attribute2 := a4(indx);
53 t(ddindx).attribute3 := a5(indx);
54 t(ddindx).attribute4 := a6(indx);
55 t(ddindx).attribute5 := a7(indx);
56 t(ddindx).attribute6 := a8(indx);
57 t(ddindx).attribute7 := a9(indx);
58 t(ddindx).attribute8 := a10(indx);
59 t(ddindx).attribute9 := a11(indx);
60 t(ddindx).attribute10 := a12(indx);
61 t(ddindx).attribute11 := a13(indx);
62 t(ddindx).attribute12 := a14(indx);
63 t(ddindx).attribute13 := a15(indx);
64 t(ddindx).attribute14 := a16(indx);
65 t(ddindx).attribute15 := a17(indx);
66 t(ddindx).parent_object_code := a18(indx);
67 t(ddindx).parent_object_id := a19(indx);
68 t(ddindx).asset_number := a20(indx);
69 t(ddindx).install_site_id := a21(indx);
70 t(ddindx).structured_pricing := a22(indx);
71 t(ddindx).rate_template_id := a23(indx);
72 t(ddindx).rate_card_id := a24(indx);
73 t(ddindx).lease_rate_factor := a25(indx);
74 t(ddindx).target_arrears := a26(indx);
75 t(ddindx).oec := a27(indx);
76 t(ddindx).oec_percentage := a28(indx);
77 t(ddindx).end_of_term_value_default := a29(indx);
78 t(ddindx).end_of_term_value := a30(indx);
79 t(ddindx).orig_asset_id := a31(indx);
80 t(ddindx).target_amount := a32(indx);
81 t(ddindx).target_frequency := a33(indx);
82 t(ddindx).short_description := a34(indx);
83 t(ddindx).description := a35(indx);
84 t(ddindx).comments := a36(indx);
85 ddindx := ddindx+1;
86 if a0.last =indx
87 then exit;
88 end if;
89 indx := a0.next(indx);
90 end loop;
91 end if;
92 end if;
93 end rosetta_table_copy_in_p23;
94 procedure rosetta_table_copy_out_p23(t okl_ass_pvt.assv_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
95 , a1 out nocopy JTF_NUMBER_TABLE
96 , a2 out nocopy JTF_VARCHAR2_TABLE_100
97 , a3 out nocopy JTF_VARCHAR2_TABLE_500
98 , a4 out nocopy JTF_VARCHAR2_TABLE_500
99 , a5 out nocopy JTF_VARCHAR2_TABLE_500
100 , a6 out nocopy JTF_VARCHAR2_TABLE_500
101 , a7 out nocopy JTF_VARCHAR2_TABLE_500
102 , a8 out nocopy JTF_VARCHAR2_TABLE_500
103 , a9 out nocopy JTF_VARCHAR2_TABLE_500
104 , a10 out nocopy JTF_VARCHAR2_TABLE_500
105 , a11 out nocopy JTF_VARCHAR2_TABLE_500
106 , a12 out nocopy JTF_VARCHAR2_TABLE_500
107 , a13 out nocopy JTF_VARCHAR2_TABLE_500
108 , a14 out nocopy JTF_VARCHAR2_TABLE_500
109 , a15 out nocopy JTF_VARCHAR2_TABLE_500
110 , a16 out nocopy JTF_VARCHAR2_TABLE_500
111 , a17 out nocopy JTF_VARCHAR2_TABLE_500
112 , a18 out nocopy JTF_VARCHAR2_TABLE_100
113 , a19 out nocopy JTF_NUMBER_TABLE
114 , a20 out nocopy JTF_VARCHAR2_TABLE_100
115 , a21 out nocopy JTF_NUMBER_TABLE
116 , a22 out nocopy JTF_VARCHAR2_TABLE_100
117 , a23 out nocopy JTF_NUMBER_TABLE
118 , a24 out nocopy JTF_NUMBER_TABLE
119 , a25 out nocopy JTF_NUMBER_TABLE
120 , a26 out nocopy JTF_VARCHAR2_TABLE_100
121 , a27 out nocopy JTF_NUMBER_TABLE
122 , a28 out nocopy JTF_NUMBER_TABLE
123 , a29 out nocopy JTF_NUMBER_TABLE
124 , a30 out nocopy JTF_NUMBER_TABLE
125 , a31 out nocopy JTF_NUMBER_TABLE
126 , a32 out nocopy JTF_NUMBER_TABLE
127 , a33 out nocopy JTF_VARCHAR2_TABLE_100
128 , a34 out nocopy JTF_VARCHAR2_TABLE_300
129 , a35 out nocopy JTF_VARCHAR2_TABLE_2000
130 , a36 out nocopy JTF_VARCHAR2_TABLE_2000
131 ) as
132 ddindx binary_integer; indx binary_integer;
133 begin
134 if t is null or t.count = 0 then
135 a0 := JTF_NUMBER_TABLE();
136 a1 := JTF_NUMBER_TABLE();
137 a2 := JTF_VARCHAR2_TABLE_100();
138 a3 := JTF_VARCHAR2_TABLE_500();
139 a4 := JTF_VARCHAR2_TABLE_500();
140 a5 := JTF_VARCHAR2_TABLE_500();
141 a6 := JTF_VARCHAR2_TABLE_500();
142 a7 := JTF_VARCHAR2_TABLE_500();
143 a8 := JTF_VARCHAR2_TABLE_500();
144 a9 := JTF_VARCHAR2_TABLE_500();
145 a10 := JTF_VARCHAR2_TABLE_500();
146 a11 := JTF_VARCHAR2_TABLE_500();
147 a12 := JTF_VARCHAR2_TABLE_500();
148 a13 := JTF_VARCHAR2_TABLE_500();
149 a14 := JTF_VARCHAR2_TABLE_500();
150 a15 := JTF_VARCHAR2_TABLE_500();
151 a16 := JTF_VARCHAR2_TABLE_500();
152 a17 := JTF_VARCHAR2_TABLE_500();
153 a18 := JTF_VARCHAR2_TABLE_100();
154 a19 := JTF_NUMBER_TABLE();
155 a20 := JTF_VARCHAR2_TABLE_100();
156 a21 := JTF_NUMBER_TABLE();
157 a22 := JTF_VARCHAR2_TABLE_100();
158 a23 := JTF_NUMBER_TABLE();
159 a24 := JTF_NUMBER_TABLE();
160 a25 := JTF_NUMBER_TABLE();
161 a26 := JTF_VARCHAR2_TABLE_100();
162 a27 := JTF_NUMBER_TABLE();
163 a28 := JTF_NUMBER_TABLE();
164 a29 := JTF_NUMBER_TABLE();
165 a30 := JTF_NUMBER_TABLE();
166 a31 := JTF_NUMBER_TABLE();
167 a32 := JTF_NUMBER_TABLE();
168 a33 := JTF_VARCHAR2_TABLE_100();
169 a34 := JTF_VARCHAR2_TABLE_300();
170 a35 := JTF_VARCHAR2_TABLE_2000();
171 a36 := JTF_VARCHAR2_TABLE_2000();
172 else
173 a0 := JTF_NUMBER_TABLE();
174 a1 := JTF_NUMBER_TABLE();
175 a2 := JTF_VARCHAR2_TABLE_100();
176 a3 := JTF_VARCHAR2_TABLE_500();
177 a4 := JTF_VARCHAR2_TABLE_500();
178 a5 := JTF_VARCHAR2_TABLE_500();
179 a6 := JTF_VARCHAR2_TABLE_500();
180 a7 := JTF_VARCHAR2_TABLE_500();
181 a8 := JTF_VARCHAR2_TABLE_500();
182 a9 := JTF_VARCHAR2_TABLE_500();
183 a10 := JTF_VARCHAR2_TABLE_500();
184 a11 := JTF_VARCHAR2_TABLE_500();
185 a12 := JTF_VARCHAR2_TABLE_500();
186 a13 := JTF_VARCHAR2_TABLE_500();
187 a14 := JTF_VARCHAR2_TABLE_500();
188 a15 := JTF_VARCHAR2_TABLE_500();
189 a16 := JTF_VARCHAR2_TABLE_500();
190 a17 := JTF_VARCHAR2_TABLE_500();
191 a18 := JTF_VARCHAR2_TABLE_100();
192 a19 := JTF_NUMBER_TABLE();
193 a20 := JTF_VARCHAR2_TABLE_100();
194 a21 := JTF_NUMBER_TABLE();
195 a22 := JTF_VARCHAR2_TABLE_100();
196 a23 := JTF_NUMBER_TABLE();
197 a24 := JTF_NUMBER_TABLE();
198 a25 := JTF_NUMBER_TABLE();
199 a26 := JTF_VARCHAR2_TABLE_100();
200 a27 := JTF_NUMBER_TABLE();
201 a28 := JTF_NUMBER_TABLE();
202 a29 := JTF_NUMBER_TABLE();
203 a30 := JTF_NUMBER_TABLE();
204 a31 := JTF_NUMBER_TABLE();
205 a32 := JTF_NUMBER_TABLE();
206 a33 := JTF_VARCHAR2_TABLE_100();
207 a34 := JTF_VARCHAR2_TABLE_300();
208 a35 := JTF_VARCHAR2_TABLE_2000();
209 a36 := JTF_VARCHAR2_TABLE_2000();
210 if t.count > 0 then
211 a0.extend(t.count);
212 a1.extend(t.count);
213 a2.extend(t.count);
214 a3.extend(t.count);
215 a4.extend(t.count);
216 a5.extend(t.count);
217 a6.extend(t.count);
218 a7.extend(t.count);
219 a8.extend(t.count);
220 a9.extend(t.count);
221 a10.extend(t.count);
222 a11.extend(t.count);
223 a12.extend(t.count);
224 a13.extend(t.count);
225 a14.extend(t.count);
226 a15.extend(t.count);
227 a16.extend(t.count);
228 a17.extend(t.count);
229 a18.extend(t.count);
230 a19.extend(t.count);
231 a20.extend(t.count);
232 a21.extend(t.count);
233 a22.extend(t.count);
234 a23.extend(t.count);
235 a24.extend(t.count);
236 a25.extend(t.count);
237 a26.extend(t.count);
238 a27.extend(t.count);
239 a28.extend(t.count);
240 a29.extend(t.count);
241 a30.extend(t.count);
242 a31.extend(t.count);
243 a32.extend(t.count);
244 a33.extend(t.count);
245 a34.extend(t.count);
246 a35.extend(t.count);
247 a36.extend(t.count);
248 ddindx := t.first;
249 indx := 1;
250 while true loop
251 a0(indx) := t(ddindx).id;
252 a1(indx) := t(ddindx).object_version_number;
253 a2(indx) := t(ddindx).attribute_category;
254 a3(indx) := t(ddindx).attribute1;
255 a4(indx) := t(ddindx).attribute2;
256 a5(indx) := t(ddindx).attribute3;
257 a6(indx) := t(ddindx).attribute4;
258 a7(indx) := t(ddindx).attribute5;
259 a8(indx) := t(ddindx).attribute6;
260 a9(indx) := t(ddindx).attribute7;
261 a10(indx) := t(ddindx).attribute8;
262 a11(indx) := t(ddindx).attribute9;
263 a12(indx) := t(ddindx).attribute10;
264 a13(indx) := t(ddindx).attribute11;
265 a14(indx) := t(ddindx).attribute12;
266 a15(indx) := t(ddindx).attribute13;
267 a16(indx) := t(ddindx).attribute14;
268 a17(indx) := t(ddindx).attribute15;
269 a18(indx) := t(ddindx).parent_object_code;
270 a19(indx) := t(ddindx).parent_object_id;
271 a20(indx) := t(ddindx).asset_number;
272 a21(indx) := t(ddindx).install_site_id;
273 a22(indx) := t(ddindx).structured_pricing;
274 a23(indx) := t(ddindx).rate_template_id;
275 a24(indx) := t(ddindx).rate_card_id;
276 a25(indx) := t(ddindx).lease_rate_factor;
277 a26(indx) := t(ddindx).target_arrears;
278 a27(indx) := t(ddindx).oec;
279 a28(indx) := t(ddindx).oec_percentage;
280 a29(indx) := t(ddindx).end_of_term_value_default;
281 a30(indx) := t(ddindx).end_of_term_value;
282 a31(indx) := t(ddindx).orig_asset_id;
283 a32(indx) := t(ddindx).target_amount;
284 a33(indx) := t(ddindx).target_frequency;
285 a34(indx) := t(ddindx).short_description;
286 a35(indx) := t(ddindx).description;
287 a36(indx) := t(ddindx).comments;
288 indx := indx+1;
289 if t.last =ddindx
290 then exit;
291 end if;
292 ddindx := t.next(ddindx);
293 end loop;
294 end if;
295 end if;
296 end rosetta_table_copy_out_p23;
297
298 procedure insert_row(p_api_version NUMBER
299 , p_init_msg_list VARCHAR2
300 , x_return_status out nocopy VARCHAR2
301 , x_msg_count out nocopy NUMBER
302 , x_msg_data out nocopy VARCHAR2
303 , p5_a0 JTF_NUMBER_TABLE
304 , p5_a1 JTF_NUMBER_TABLE
305 , p5_a2 JTF_VARCHAR2_TABLE_100
306 , p5_a3 JTF_VARCHAR2_TABLE_500
307 , p5_a4 JTF_VARCHAR2_TABLE_500
308 , p5_a5 JTF_VARCHAR2_TABLE_500
309 , p5_a6 JTF_VARCHAR2_TABLE_500
310 , p5_a7 JTF_VARCHAR2_TABLE_500
311 , p5_a8 JTF_VARCHAR2_TABLE_500
312 , p5_a9 JTF_VARCHAR2_TABLE_500
313 , p5_a10 JTF_VARCHAR2_TABLE_500
314 , p5_a11 JTF_VARCHAR2_TABLE_500
315 , p5_a12 JTF_VARCHAR2_TABLE_500
316 , p5_a13 JTF_VARCHAR2_TABLE_500
317 , p5_a14 JTF_VARCHAR2_TABLE_500
318 , p5_a15 JTF_VARCHAR2_TABLE_500
319 , p5_a16 JTF_VARCHAR2_TABLE_500
320 , p5_a17 JTF_VARCHAR2_TABLE_500
321 , p5_a18 JTF_VARCHAR2_TABLE_100
322 , p5_a19 JTF_NUMBER_TABLE
323 , p5_a20 JTF_VARCHAR2_TABLE_100
324 , p5_a21 JTF_NUMBER_TABLE
325 , p5_a22 JTF_VARCHAR2_TABLE_100
326 , p5_a23 JTF_NUMBER_TABLE
327 , p5_a24 JTF_NUMBER_TABLE
328 , p5_a25 JTF_NUMBER_TABLE
329 , p5_a26 JTF_VARCHAR2_TABLE_100
330 , p5_a27 JTF_NUMBER_TABLE
331 , p5_a28 JTF_NUMBER_TABLE
332 , p5_a29 JTF_NUMBER_TABLE
333 , p5_a30 JTF_NUMBER_TABLE
334 , p5_a31 JTF_NUMBER_TABLE
335 , p5_a32 JTF_NUMBER_TABLE
336 , p5_a33 JTF_VARCHAR2_TABLE_100
337 , p5_a34 JTF_VARCHAR2_TABLE_300
338 , p5_a35 JTF_VARCHAR2_TABLE_2000
339 , p5_a36 JTF_VARCHAR2_TABLE_2000
340 , p6_a0 out nocopy JTF_NUMBER_TABLE
341 , p6_a1 out nocopy JTF_NUMBER_TABLE
342 , p6_a2 out nocopy JTF_VARCHAR2_TABLE_100
343 , p6_a3 out nocopy JTF_VARCHAR2_TABLE_500
344 , p6_a4 out nocopy JTF_VARCHAR2_TABLE_500
345 , p6_a5 out nocopy JTF_VARCHAR2_TABLE_500
346 , p6_a6 out nocopy JTF_VARCHAR2_TABLE_500
347 , p6_a7 out nocopy JTF_VARCHAR2_TABLE_500
348 , p6_a8 out nocopy JTF_VARCHAR2_TABLE_500
349 , p6_a9 out nocopy JTF_VARCHAR2_TABLE_500
350 , p6_a10 out nocopy JTF_VARCHAR2_TABLE_500
351 , p6_a11 out nocopy JTF_VARCHAR2_TABLE_500
352 , p6_a12 out nocopy JTF_VARCHAR2_TABLE_500
353 , p6_a13 out nocopy JTF_VARCHAR2_TABLE_500
354 , p6_a14 out nocopy JTF_VARCHAR2_TABLE_500
355 , p6_a15 out nocopy JTF_VARCHAR2_TABLE_500
356 , p6_a16 out nocopy JTF_VARCHAR2_TABLE_500
357 , p6_a17 out nocopy JTF_VARCHAR2_TABLE_500
358 , p6_a18 out nocopy JTF_VARCHAR2_TABLE_100
359 , p6_a19 out nocopy JTF_NUMBER_TABLE
360 , p6_a20 out nocopy JTF_VARCHAR2_TABLE_100
361 , p6_a21 out nocopy JTF_NUMBER_TABLE
362 , p6_a22 out nocopy JTF_VARCHAR2_TABLE_100
363 , p6_a23 out nocopy JTF_NUMBER_TABLE
364 , p6_a24 out nocopy JTF_NUMBER_TABLE
365 , p6_a25 out nocopy JTF_NUMBER_TABLE
366 , p6_a26 out nocopy JTF_VARCHAR2_TABLE_100
367 , p6_a27 out nocopy JTF_NUMBER_TABLE
368 , p6_a28 out nocopy JTF_NUMBER_TABLE
369 , p6_a29 out nocopy JTF_NUMBER_TABLE
370 , p6_a30 out nocopy JTF_NUMBER_TABLE
371 , p6_a31 out nocopy JTF_NUMBER_TABLE
372 , p6_a32 out nocopy JTF_NUMBER_TABLE
373 , p6_a33 out nocopy JTF_VARCHAR2_TABLE_100
374 , p6_a34 out nocopy JTF_VARCHAR2_TABLE_300
375 , p6_a35 out nocopy JTF_VARCHAR2_TABLE_2000
376 , p6_a36 out nocopy JTF_VARCHAR2_TABLE_2000
377 )
378
379 as
380 ddp_assv_tbl okl_ass_pvt.assv_tbl_type;
381 ddx_assv_tbl okl_ass_pvt.assv_tbl_type;
382 ddindx binary_integer; indx binary_integer;
383 begin
384
385 -- copy data to the local IN or IN-OUT args, if any
386
387
388
389
390
391 okl_ass_pvt_w.rosetta_table_copy_in_p23(ddp_assv_tbl, p5_a0
392 , p5_a1
393 , p5_a2
394 , p5_a3
395 , p5_a4
396 , p5_a5
397 , p5_a6
398 , p5_a7
399 , p5_a8
400 , p5_a9
401 , p5_a10
402 , p5_a11
403 , p5_a12
404 , p5_a13
405 , p5_a14
406 , p5_a15
407 , p5_a16
408 , p5_a17
409 , p5_a18
410 , p5_a19
411 , p5_a20
412 , p5_a21
413 , p5_a22
414 , p5_a23
415 , p5_a24
416 , p5_a25
417 , p5_a26
418 , p5_a27
419 , p5_a28
420 , p5_a29
421 , p5_a30
422 , p5_a31
423 , p5_a32
424 , p5_a33
425 , p5_a34
426 , p5_a35
427 , p5_a36
428 );
429
430
431 -- here's the delegated call to the old PL/SQL routine
432 okl_ass_pvt.insert_row(p_api_version,
433 p_init_msg_list,
434 x_return_status,
435 x_msg_count,
436 x_msg_data,
437 ddp_assv_tbl,
438 ddx_assv_tbl);
439
440 -- copy data back from the local variables to OUT or IN-OUT args, if any
441
442
443
444
445
446
447 okl_ass_pvt_w.rosetta_table_copy_out_p23(ddx_assv_tbl, p6_a0
448 , p6_a1
449 , p6_a2
450 , p6_a3
451 , p6_a4
452 , p6_a5
453 , p6_a6
454 , p6_a7
455 , p6_a8
456 , p6_a9
457 , p6_a10
458 , p6_a11
459 , p6_a12
460 , p6_a13
461 , p6_a14
462 , p6_a15
463 , p6_a16
464 , p6_a17
465 , p6_a18
466 , p6_a19
467 , p6_a20
468 , p6_a21
469 , p6_a22
470 , p6_a23
471 , p6_a24
472 , p6_a25
473 , p6_a26
474 , p6_a27
475 , p6_a28
476 , p6_a29
477 , p6_a30
478 , p6_a31
479 , p6_a32
480 , p6_a33
481 , p6_a34
482 , p6_a35
483 , p6_a36
484 );
485 end;
486
487 procedure update_row(p_api_version NUMBER
488 , p_init_msg_list VARCHAR2
489 , x_return_status out nocopy VARCHAR2
490 , x_msg_count out nocopy NUMBER
491 , x_msg_data out nocopy VARCHAR2
492 , p5_a0 JTF_NUMBER_TABLE
493 , p5_a1 JTF_NUMBER_TABLE
494 , p5_a2 JTF_VARCHAR2_TABLE_100
495 , p5_a3 JTF_VARCHAR2_TABLE_500
496 , p5_a4 JTF_VARCHAR2_TABLE_500
497 , p5_a5 JTF_VARCHAR2_TABLE_500
498 , p5_a6 JTF_VARCHAR2_TABLE_500
499 , p5_a7 JTF_VARCHAR2_TABLE_500
500 , p5_a8 JTF_VARCHAR2_TABLE_500
501 , p5_a9 JTF_VARCHAR2_TABLE_500
502 , p5_a10 JTF_VARCHAR2_TABLE_500
503 , p5_a11 JTF_VARCHAR2_TABLE_500
504 , p5_a12 JTF_VARCHAR2_TABLE_500
505 , p5_a13 JTF_VARCHAR2_TABLE_500
506 , p5_a14 JTF_VARCHAR2_TABLE_500
507 , p5_a15 JTF_VARCHAR2_TABLE_500
508 , p5_a16 JTF_VARCHAR2_TABLE_500
509 , p5_a17 JTF_VARCHAR2_TABLE_500
510 , p5_a18 JTF_VARCHAR2_TABLE_100
511 , p5_a19 JTF_NUMBER_TABLE
512 , p5_a20 JTF_VARCHAR2_TABLE_100
513 , p5_a21 JTF_NUMBER_TABLE
514 , p5_a22 JTF_VARCHAR2_TABLE_100
515 , p5_a23 JTF_NUMBER_TABLE
516 , p5_a24 JTF_NUMBER_TABLE
517 , p5_a25 JTF_NUMBER_TABLE
518 , p5_a26 JTF_VARCHAR2_TABLE_100
519 , p5_a27 JTF_NUMBER_TABLE
520 , p5_a28 JTF_NUMBER_TABLE
521 , p5_a29 JTF_NUMBER_TABLE
522 , p5_a30 JTF_NUMBER_TABLE
523 , p5_a31 JTF_NUMBER_TABLE
524 , p5_a32 JTF_NUMBER_TABLE
525 , p5_a33 JTF_VARCHAR2_TABLE_100
526 , p5_a34 JTF_VARCHAR2_TABLE_300
527 , p5_a35 JTF_VARCHAR2_TABLE_2000
528 , p5_a36 JTF_VARCHAR2_TABLE_2000
529 , p6_a0 out nocopy JTF_NUMBER_TABLE
530 , p6_a1 out nocopy JTF_NUMBER_TABLE
531 , p6_a2 out nocopy JTF_VARCHAR2_TABLE_100
532 , p6_a3 out nocopy JTF_VARCHAR2_TABLE_500
533 , p6_a4 out nocopy JTF_VARCHAR2_TABLE_500
534 , p6_a5 out nocopy JTF_VARCHAR2_TABLE_500
535 , p6_a6 out nocopy JTF_VARCHAR2_TABLE_500
536 , p6_a7 out nocopy JTF_VARCHAR2_TABLE_500
537 , p6_a8 out nocopy JTF_VARCHAR2_TABLE_500
538 , p6_a9 out nocopy JTF_VARCHAR2_TABLE_500
539 , p6_a10 out nocopy JTF_VARCHAR2_TABLE_500
540 , p6_a11 out nocopy JTF_VARCHAR2_TABLE_500
541 , p6_a12 out nocopy JTF_VARCHAR2_TABLE_500
542 , p6_a13 out nocopy JTF_VARCHAR2_TABLE_500
543 , p6_a14 out nocopy JTF_VARCHAR2_TABLE_500
544 , p6_a15 out nocopy JTF_VARCHAR2_TABLE_500
545 , p6_a16 out nocopy JTF_VARCHAR2_TABLE_500
546 , p6_a17 out nocopy JTF_VARCHAR2_TABLE_500
547 , p6_a18 out nocopy JTF_VARCHAR2_TABLE_100
548 , p6_a19 out nocopy JTF_NUMBER_TABLE
549 , p6_a20 out nocopy JTF_VARCHAR2_TABLE_100
550 , p6_a21 out nocopy JTF_NUMBER_TABLE
551 , p6_a22 out nocopy JTF_VARCHAR2_TABLE_100
552 , p6_a23 out nocopy JTF_NUMBER_TABLE
553 , p6_a24 out nocopy JTF_NUMBER_TABLE
554 , p6_a25 out nocopy JTF_NUMBER_TABLE
555 , p6_a26 out nocopy JTF_VARCHAR2_TABLE_100
556 , p6_a27 out nocopy JTF_NUMBER_TABLE
557 , p6_a28 out nocopy JTF_NUMBER_TABLE
558 , p6_a29 out nocopy JTF_NUMBER_TABLE
559 , p6_a30 out nocopy JTF_NUMBER_TABLE
560 , p6_a31 out nocopy JTF_NUMBER_TABLE
561 , p6_a32 out nocopy JTF_NUMBER_TABLE
562 , p6_a33 out nocopy JTF_VARCHAR2_TABLE_100
563 , p6_a34 out nocopy JTF_VARCHAR2_TABLE_300
564 , p6_a35 out nocopy JTF_VARCHAR2_TABLE_2000
565 , p6_a36 out nocopy JTF_VARCHAR2_TABLE_2000
566 )
567
568 as
569 ddp_assv_tbl okl_ass_pvt.assv_tbl_type;
570 ddx_assv_tbl okl_ass_pvt.assv_tbl_type;
571 ddindx binary_integer; indx binary_integer;
572 begin
573
574 -- copy data to the local IN or IN-OUT args, if any
575
576
577
578
579
580 okl_ass_pvt_w.rosetta_table_copy_in_p23(ddp_assv_tbl, p5_a0
581 , p5_a1
582 , p5_a2
583 , p5_a3
584 , p5_a4
585 , p5_a5
586 , p5_a6
587 , p5_a7
588 , p5_a8
589 , p5_a9
590 , p5_a10
591 , p5_a11
592 , p5_a12
593 , p5_a13
594 , p5_a14
595 , p5_a15
596 , p5_a16
597 , p5_a17
598 , p5_a18
599 , p5_a19
600 , p5_a20
601 , p5_a21
602 , p5_a22
603 , p5_a23
604 , p5_a24
605 , p5_a25
606 , p5_a26
607 , p5_a27
608 , p5_a28
609 , p5_a29
610 , p5_a30
611 , p5_a31
612 , p5_a32
613 , p5_a33
614 , p5_a34
615 , p5_a35
616 , p5_a36
617 );
618
619
620 -- here's the delegated call to the old PL/SQL routine
621 okl_ass_pvt.update_row(p_api_version,
622 p_init_msg_list,
623 x_return_status,
624 x_msg_count,
625 x_msg_data,
626 ddp_assv_tbl,
627 ddx_assv_tbl);
628
629 -- copy data back from the local variables to OUT or IN-OUT args, if any
630
631
632
633
634
635
636 okl_ass_pvt_w.rosetta_table_copy_out_p23(ddx_assv_tbl, p6_a0
637 , p6_a1
638 , p6_a2
639 , p6_a3
640 , p6_a4
641 , p6_a5
642 , p6_a6
643 , p6_a7
644 , p6_a8
645 , p6_a9
646 , p6_a10
647 , p6_a11
648 , p6_a12
649 , p6_a13
650 , p6_a14
651 , p6_a15
652 , p6_a16
653 , p6_a17
654 , p6_a18
655 , p6_a19
656 , p6_a20
657 , p6_a21
658 , p6_a22
659 , p6_a23
660 , p6_a24
661 , p6_a25
662 , p6_a26
663 , p6_a27
664 , p6_a28
665 , p6_a29
666 , p6_a30
667 , p6_a31
668 , p6_a32
669 , p6_a33
670 , p6_a34
671 , p6_a35
672 , p6_a36
673 );
674 end;
675
676 procedure delete_row(p_api_version NUMBER
677 , p_init_msg_list VARCHAR2
678 , x_return_status out nocopy VARCHAR2
679 , x_msg_count out nocopy NUMBER
680 , x_msg_data out nocopy VARCHAR2
681 , p5_a0 JTF_NUMBER_TABLE
682 , p5_a1 JTF_NUMBER_TABLE
683 , p5_a2 JTF_VARCHAR2_TABLE_100
684 , p5_a3 JTF_VARCHAR2_TABLE_500
685 , p5_a4 JTF_VARCHAR2_TABLE_500
686 , p5_a5 JTF_VARCHAR2_TABLE_500
687 , p5_a6 JTF_VARCHAR2_TABLE_500
688 , p5_a7 JTF_VARCHAR2_TABLE_500
689 , p5_a8 JTF_VARCHAR2_TABLE_500
690 , p5_a9 JTF_VARCHAR2_TABLE_500
691 , p5_a10 JTF_VARCHAR2_TABLE_500
692 , p5_a11 JTF_VARCHAR2_TABLE_500
693 , p5_a12 JTF_VARCHAR2_TABLE_500
694 , p5_a13 JTF_VARCHAR2_TABLE_500
695 , p5_a14 JTF_VARCHAR2_TABLE_500
696 , p5_a15 JTF_VARCHAR2_TABLE_500
697 , p5_a16 JTF_VARCHAR2_TABLE_500
698 , p5_a17 JTF_VARCHAR2_TABLE_500
699 , p5_a18 JTF_VARCHAR2_TABLE_100
700 , p5_a19 JTF_NUMBER_TABLE
701 , p5_a20 JTF_VARCHAR2_TABLE_100
702 , p5_a21 JTF_NUMBER_TABLE
703 , p5_a22 JTF_VARCHAR2_TABLE_100
704 , p5_a23 JTF_NUMBER_TABLE
705 , p5_a24 JTF_NUMBER_TABLE
706 , p5_a25 JTF_NUMBER_TABLE
707 , p5_a26 JTF_VARCHAR2_TABLE_100
708 , p5_a27 JTF_NUMBER_TABLE
709 , p5_a28 JTF_NUMBER_TABLE
710 , p5_a29 JTF_NUMBER_TABLE
711 , p5_a30 JTF_NUMBER_TABLE
712 , p5_a31 JTF_NUMBER_TABLE
713 , p5_a32 JTF_NUMBER_TABLE
714 , p5_a33 JTF_VARCHAR2_TABLE_100
715 , p5_a34 JTF_VARCHAR2_TABLE_300
716 , p5_a35 JTF_VARCHAR2_TABLE_2000
717 , p5_a36 JTF_VARCHAR2_TABLE_2000
718 )
719
720 as
721 ddp_assv_tbl okl_ass_pvt.assv_tbl_type;
722 ddindx binary_integer; indx binary_integer;
723 begin
724
725 -- copy data to the local IN or IN-OUT args, if any
726
727
728
729
730
731 okl_ass_pvt_w.rosetta_table_copy_in_p23(ddp_assv_tbl, p5_a0
732 , p5_a1
733 , p5_a2
734 , p5_a3
735 , p5_a4
736 , p5_a5
737 , p5_a6
738 , p5_a7
739 , p5_a8
740 , p5_a9
741 , p5_a10
742 , p5_a11
743 , p5_a12
744 , p5_a13
745 , p5_a14
746 , p5_a15
747 , p5_a16
748 , p5_a17
749 , p5_a18
750 , p5_a19
751 , p5_a20
752 , p5_a21
753 , p5_a22
754 , p5_a23
755 , p5_a24
756 , p5_a25
757 , p5_a26
758 , p5_a27
759 , p5_a28
760 , p5_a29
761 , p5_a30
762 , p5_a31
763 , p5_a32
764 , p5_a33
765 , p5_a34
766 , p5_a35
767 , p5_a36
768 );
769
770 -- here's the delegated call to the old PL/SQL routine
771 okl_ass_pvt.delete_row(p_api_version,
772 p_init_msg_list,
773 x_return_status,
774 x_msg_count,
775 x_msg_data,
776 ddp_assv_tbl);
777
778 -- copy data back from the local variables to OUT or IN-OUT args, if any
779
780
781
782
783
784 end;
785
786 procedure insert_row(p_api_version NUMBER
787 , p_init_msg_list VARCHAR2
788 , x_return_status out nocopy VARCHAR2
789 , x_msg_count out nocopy NUMBER
790 , x_msg_data out nocopy VARCHAR2
791 , p5_a0 NUMBER
792 , p5_a1 NUMBER
793 , p5_a2 VARCHAR2
794 , p5_a3 VARCHAR2
795 , p5_a4 VARCHAR2
796 , p5_a5 VARCHAR2
797 , p5_a6 VARCHAR2
798 , p5_a7 VARCHAR2
799 , p5_a8 VARCHAR2
800 , p5_a9 VARCHAR2
801 , p5_a10 VARCHAR2
802 , p5_a11 VARCHAR2
803 , p5_a12 VARCHAR2
804 , p5_a13 VARCHAR2
805 , p5_a14 VARCHAR2
806 , p5_a15 VARCHAR2
807 , p5_a16 VARCHAR2
808 , p5_a17 VARCHAR2
809 , p5_a18 VARCHAR2
810 , p5_a19 NUMBER
811 , p5_a20 VARCHAR2
812 , p5_a21 NUMBER
813 , p5_a22 VARCHAR2
814 , p5_a23 NUMBER
815 , p5_a24 NUMBER
816 , p5_a25 NUMBER
817 , p5_a26 VARCHAR2
818 , p5_a27 NUMBER
819 , p5_a28 NUMBER
820 , p5_a29 NUMBER
821 , p5_a30 NUMBER
822 , p5_a31 NUMBER
823 , p5_a32 NUMBER
824 , p5_a33 VARCHAR2
825 , p5_a34 VARCHAR2
826 , p5_a35 VARCHAR2
827 , p5_a36 VARCHAR2
828 , p6_a0 out nocopy NUMBER
829 , p6_a1 out nocopy NUMBER
830 , p6_a2 out nocopy VARCHAR2
831 , p6_a3 out nocopy VARCHAR2
832 , p6_a4 out nocopy VARCHAR2
833 , p6_a5 out nocopy VARCHAR2
834 , p6_a6 out nocopy VARCHAR2
835 , p6_a7 out nocopy VARCHAR2
836 , p6_a8 out nocopy VARCHAR2
837 , p6_a9 out nocopy VARCHAR2
838 , p6_a10 out nocopy VARCHAR2
839 , p6_a11 out nocopy VARCHAR2
840 , p6_a12 out nocopy VARCHAR2
841 , p6_a13 out nocopy VARCHAR2
842 , p6_a14 out nocopy VARCHAR2
843 , p6_a15 out nocopy VARCHAR2
844 , p6_a16 out nocopy VARCHAR2
845 , p6_a17 out nocopy VARCHAR2
846 , p6_a18 out nocopy VARCHAR2
847 , p6_a19 out nocopy NUMBER
848 , p6_a20 out nocopy VARCHAR2
849 , p6_a21 out nocopy NUMBER
850 , p6_a22 out nocopy VARCHAR2
851 , p6_a23 out nocopy NUMBER
852 , p6_a24 out nocopy NUMBER
853 , p6_a25 out nocopy NUMBER
854 , p6_a26 out nocopy VARCHAR2
855 , p6_a27 out nocopy NUMBER
856 , p6_a28 out nocopy NUMBER
857 , p6_a29 out nocopy NUMBER
858 , p6_a30 out nocopy NUMBER
859 , p6_a31 out nocopy NUMBER
860 , p6_a32 out nocopy NUMBER
861 , p6_a33 out nocopy VARCHAR2
862 , p6_a34 out nocopy VARCHAR2
863 , p6_a35 out nocopy VARCHAR2
864 , p6_a36 out nocopy VARCHAR2
865 )
866
867 as
868 ddp_assv_rec okl_ass_pvt.assv_rec_type;
869 ddx_assv_rec okl_ass_pvt.assv_rec_type;
870 ddindx binary_integer; indx binary_integer;
871 begin
872
873 -- copy data to the local IN or IN-OUT args, if any
874
875
876
877
878
879 ddp_assv_rec.id := p5_a0;
880 ddp_assv_rec.object_version_number := p5_a1;
881 ddp_assv_rec.attribute_category := p5_a2;
882 ddp_assv_rec.attribute1 := p5_a3;
883 ddp_assv_rec.attribute2 := p5_a4;
884 ddp_assv_rec.attribute3 := p5_a5;
885 ddp_assv_rec.attribute4 := p5_a6;
886 ddp_assv_rec.attribute5 := p5_a7;
887 ddp_assv_rec.attribute6 := p5_a8;
888 ddp_assv_rec.attribute7 := p5_a9;
889 ddp_assv_rec.attribute8 := p5_a10;
890 ddp_assv_rec.attribute9 := p5_a11;
891 ddp_assv_rec.attribute10 := p5_a12;
892 ddp_assv_rec.attribute11 := p5_a13;
893 ddp_assv_rec.attribute12 := p5_a14;
894 ddp_assv_rec.attribute13 := p5_a15;
895 ddp_assv_rec.attribute14 := p5_a16;
896 ddp_assv_rec.attribute15 := p5_a17;
897 ddp_assv_rec.parent_object_code := p5_a18;
898 ddp_assv_rec.parent_object_id := p5_a19;
899 ddp_assv_rec.asset_number := p5_a20;
900 ddp_assv_rec.install_site_id := p5_a21;
901 ddp_assv_rec.structured_pricing := p5_a22;
902 ddp_assv_rec.rate_template_id := p5_a23;
903 ddp_assv_rec.rate_card_id := p5_a24;
904 ddp_assv_rec.lease_rate_factor := p5_a25;
905 ddp_assv_rec.target_arrears := p5_a26;
906 ddp_assv_rec.oec := p5_a27;
907 ddp_assv_rec.oec_percentage := p5_a28;
908 ddp_assv_rec.end_of_term_value_default := p5_a29;
909 ddp_assv_rec.end_of_term_value := p5_a30;
910 ddp_assv_rec.orig_asset_id := p5_a31;
911 ddp_assv_rec.target_amount := p5_a32;
912 ddp_assv_rec.target_frequency := p5_a33;
913 ddp_assv_rec.short_description := p5_a34;
914 ddp_assv_rec.description := p5_a35;
915 ddp_assv_rec.comments := p5_a36;
916
917
918 -- here's the delegated call to the old PL/SQL routine
919 okl_ass_pvt.insert_row(p_api_version,
920 p_init_msg_list,
921 x_return_status,
922 x_msg_count,
923 x_msg_data,
924 ddp_assv_rec,
925 ddx_assv_rec);
926
927 -- copy data back from the local variables to OUT or IN-OUT args, if any
928
929
930
931
932
933
934 p6_a0 := ddx_assv_rec.id;
935 p6_a1 := ddx_assv_rec.object_version_number;
936 p6_a2 := ddx_assv_rec.attribute_category;
937 p6_a3 := ddx_assv_rec.attribute1;
938 p6_a4 := ddx_assv_rec.attribute2;
939 p6_a5 := ddx_assv_rec.attribute3;
940 p6_a6 := ddx_assv_rec.attribute4;
941 p6_a7 := ddx_assv_rec.attribute5;
942 p6_a8 := ddx_assv_rec.attribute6;
943 p6_a9 := ddx_assv_rec.attribute7;
944 p6_a10 := ddx_assv_rec.attribute8;
945 p6_a11 := ddx_assv_rec.attribute9;
946 p6_a12 := ddx_assv_rec.attribute10;
947 p6_a13 := ddx_assv_rec.attribute11;
948 p6_a14 := ddx_assv_rec.attribute12;
949 p6_a15 := ddx_assv_rec.attribute13;
950 p6_a16 := ddx_assv_rec.attribute14;
951 p6_a17 := ddx_assv_rec.attribute15;
952 p6_a18 := ddx_assv_rec.parent_object_code;
953 p6_a19 := ddx_assv_rec.parent_object_id;
954 p6_a20 := ddx_assv_rec.asset_number;
955 p6_a21 := ddx_assv_rec.install_site_id;
956 p6_a22 := ddx_assv_rec.structured_pricing;
957 p6_a23 := ddx_assv_rec.rate_template_id;
958 p6_a24 := ddx_assv_rec.rate_card_id;
959 p6_a25 := ddx_assv_rec.lease_rate_factor;
960 p6_a26 := ddx_assv_rec.target_arrears;
961 p6_a27 := ddx_assv_rec.oec;
962 p6_a28 := ddx_assv_rec.oec_percentage;
963 p6_a29 := ddx_assv_rec.end_of_term_value_default;
964 p6_a30 := ddx_assv_rec.end_of_term_value;
965 p6_a31 := ddx_assv_rec.orig_asset_id;
966 p6_a32 := ddx_assv_rec.target_amount;
967 p6_a33 := ddx_assv_rec.target_frequency;
968 p6_a34 := ddx_assv_rec.short_description;
969 p6_a35 := ddx_assv_rec.description;
970 p6_a36 := ddx_assv_rec.comments;
971 end;
972
973 procedure update_row(p_api_version NUMBER
974 , p_init_msg_list VARCHAR2
975 , x_return_status out nocopy VARCHAR2
976 , x_msg_count out nocopy NUMBER
977 , x_msg_data out nocopy VARCHAR2
978 , p5_a0 NUMBER
979 , p5_a1 NUMBER
980 , p5_a2 VARCHAR2
981 , p5_a3 VARCHAR2
982 , p5_a4 VARCHAR2
983 , p5_a5 VARCHAR2
984 , p5_a6 VARCHAR2
985 , p5_a7 VARCHAR2
986 , p5_a8 VARCHAR2
987 , p5_a9 VARCHAR2
988 , p5_a10 VARCHAR2
989 , p5_a11 VARCHAR2
990 , p5_a12 VARCHAR2
991 , p5_a13 VARCHAR2
992 , p5_a14 VARCHAR2
993 , p5_a15 VARCHAR2
994 , p5_a16 VARCHAR2
995 , p5_a17 VARCHAR2
996 , p5_a18 VARCHAR2
997 , p5_a19 NUMBER
998 , p5_a20 VARCHAR2
999 , p5_a21 NUMBER
1000 , p5_a22 VARCHAR2
1001 , p5_a23 NUMBER
1002 , p5_a24 NUMBER
1003 , p5_a25 NUMBER
1004 , p5_a26 VARCHAR2
1005 , p5_a27 NUMBER
1006 , p5_a28 NUMBER
1007 , p5_a29 NUMBER
1008 , p5_a30 NUMBER
1009 , p5_a31 NUMBER
1010 , p5_a32 NUMBER
1011 , p5_a33 VARCHAR2
1012 , p5_a34 VARCHAR2
1013 , p5_a35 VARCHAR2
1014 , p5_a36 VARCHAR2
1015 , p6_a0 out nocopy NUMBER
1016 , p6_a1 out nocopy NUMBER
1017 , p6_a2 out nocopy VARCHAR2
1018 , p6_a3 out nocopy VARCHAR2
1019 , p6_a4 out nocopy VARCHAR2
1020 , p6_a5 out nocopy VARCHAR2
1021 , p6_a6 out nocopy VARCHAR2
1022 , p6_a7 out nocopy VARCHAR2
1023 , p6_a8 out nocopy VARCHAR2
1024 , p6_a9 out nocopy VARCHAR2
1025 , p6_a10 out nocopy VARCHAR2
1026 , p6_a11 out nocopy VARCHAR2
1027 , p6_a12 out nocopy VARCHAR2
1028 , p6_a13 out nocopy VARCHAR2
1029 , p6_a14 out nocopy VARCHAR2
1030 , p6_a15 out nocopy VARCHAR2
1031 , p6_a16 out nocopy VARCHAR2
1032 , p6_a17 out nocopy VARCHAR2
1033 , p6_a18 out nocopy VARCHAR2
1034 , p6_a19 out nocopy NUMBER
1035 , p6_a20 out nocopy VARCHAR2
1036 , p6_a21 out nocopy NUMBER
1037 , p6_a22 out nocopy VARCHAR2
1038 , p6_a23 out nocopy NUMBER
1039 , p6_a24 out nocopy NUMBER
1040 , p6_a25 out nocopy NUMBER
1041 , p6_a26 out nocopy VARCHAR2
1042 , p6_a27 out nocopy NUMBER
1043 , p6_a28 out nocopy NUMBER
1044 , p6_a29 out nocopy NUMBER
1045 , p6_a30 out nocopy NUMBER
1046 , p6_a31 out nocopy NUMBER
1047 , p6_a32 out nocopy NUMBER
1048 , p6_a33 out nocopy VARCHAR2
1049 , p6_a34 out nocopy VARCHAR2
1050 , p6_a35 out nocopy VARCHAR2
1051 , p6_a36 out nocopy VARCHAR2
1052 )
1053
1054 as
1055 ddp_assv_rec okl_ass_pvt.assv_rec_type;
1056 ddx_assv_rec okl_ass_pvt.assv_rec_type;
1057 ddindx binary_integer; indx binary_integer;
1058 begin
1059
1060 -- copy data to the local IN or IN-OUT args, if any
1061
1062
1063
1064
1065
1066 ddp_assv_rec.id := p5_a0;
1067 ddp_assv_rec.object_version_number := p5_a1;
1068 ddp_assv_rec.attribute_category := p5_a2;
1069 ddp_assv_rec.attribute1 := p5_a3;
1070 ddp_assv_rec.attribute2 := p5_a4;
1071 ddp_assv_rec.attribute3 := p5_a5;
1072 ddp_assv_rec.attribute4 := p5_a6;
1073 ddp_assv_rec.attribute5 := p5_a7;
1074 ddp_assv_rec.attribute6 := p5_a8;
1075 ddp_assv_rec.attribute7 := p5_a9;
1076 ddp_assv_rec.attribute8 := p5_a10;
1077 ddp_assv_rec.attribute9 := p5_a11;
1078 ddp_assv_rec.attribute10 := p5_a12;
1079 ddp_assv_rec.attribute11 := p5_a13;
1080 ddp_assv_rec.attribute12 := p5_a14;
1081 ddp_assv_rec.attribute13 := p5_a15;
1082 ddp_assv_rec.attribute14 := p5_a16;
1083 ddp_assv_rec.attribute15 := p5_a17;
1084 ddp_assv_rec.parent_object_code := p5_a18;
1085 ddp_assv_rec.parent_object_id := p5_a19;
1086 ddp_assv_rec.asset_number := p5_a20;
1087 ddp_assv_rec.install_site_id := p5_a21;
1088 ddp_assv_rec.structured_pricing := p5_a22;
1089 ddp_assv_rec.rate_template_id := p5_a23;
1090 ddp_assv_rec.rate_card_id := p5_a24;
1091 ddp_assv_rec.lease_rate_factor := p5_a25;
1092 ddp_assv_rec.target_arrears := p5_a26;
1093 ddp_assv_rec.oec := p5_a27;
1094 ddp_assv_rec.oec_percentage := p5_a28;
1095 ddp_assv_rec.end_of_term_value_default := p5_a29;
1096 ddp_assv_rec.end_of_term_value := p5_a30;
1097 ddp_assv_rec.orig_asset_id := p5_a31;
1098 ddp_assv_rec.target_amount := p5_a32;
1099 ddp_assv_rec.target_frequency := p5_a33;
1100 ddp_assv_rec.short_description := p5_a34;
1101 ddp_assv_rec.description := p5_a35;
1102 ddp_assv_rec.comments := p5_a36;
1103
1104
1105 -- here's the delegated call to the old PL/SQL routine
1106 okl_ass_pvt.update_row(p_api_version,
1107 p_init_msg_list,
1108 x_return_status,
1109 x_msg_count,
1110 x_msg_data,
1111 ddp_assv_rec,
1112 ddx_assv_rec);
1113
1114 -- copy data back from the local variables to OUT or IN-OUT args, if any
1115
1116
1117
1118
1119
1120
1121 p6_a0 := ddx_assv_rec.id;
1122 p6_a1 := ddx_assv_rec.object_version_number;
1123 p6_a2 := ddx_assv_rec.attribute_category;
1124 p6_a3 := ddx_assv_rec.attribute1;
1125 p6_a4 := ddx_assv_rec.attribute2;
1126 p6_a5 := ddx_assv_rec.attribute3;
1127 p6_a6 := ddx_assv_rec.attribute4;
1128 p6_a7 := ddx_assv_rec.attribute5;
1129 p6_a8 := ddx_assv_rec.attribute6;
1130 p6_a9 := ddx_assv_rec.attribute7;
1131 p6_a10 := ddx_assv_rec.attribute8;
1132 p6_a11 := ddx_assv_rec.attribute9;
1133 p6_a12 := ddx_assv_rec.attribute10;
1134 p6_a13 := ddx_assv_rec.attribute11;
1135 p6_a14 := ddx_assv_rec.attribute12;
1136 p6_a15 := ddx_assv_rec.attribute13;
1137 p6_a16 := ddx_assv_rec.attribute14;
1138 p6_a17 := ddx_assv_rec.attribute15;
1139 p6_a18 := ddx_assv_rec.parent_object_code;
1140 p6_a19 := ddx_assv_rec.parent_object_id;
1141 p6_a20 := ddx_assv_rec.asset_number;
1142 p6_a21 := ddx_assv_rec.install_site_id;
1143 p6_a22 := ddx_assv_rec.structured_pricing;
1144 p6_a23 := ddx_assv_rec.rate_template_id;
1145 p6_a24 := ddx_assv_rec.rate_card_id;
1146 p6_a25 := ddx_assv_rec.lease_rate_factor;
1147 p6_a26 := ddx_assv_rec.target_arrears;
1148 p6_a27 := ddx_assv_rec.oec;
1149 p6_a28 := ddx_assv_rec.oec_percentage;
1150 p6_a29 := ddx_assv_rec.end_of_term_value_default;
1151 p6_a30 := ddx_assv_rec.end_of_term_value;
1152 p6_a31 := ddx_assv_rec.orig_asset_id;
1153 p6_a32 := ddx_assv_rec.target_amount;
1154 p6_a33 := ddx_assv_rec.target_frequency;
1155 p6_a34 := ddx_assv_rec.short_description;
1156 p6_a35 := ddx_assv_rec.description;
1157 p6_a36 := ddx_assv_rec.comments;
1158 end;
1159
1160 procedure delete_row(p_api_version NUMBER
1161 , p_init_msg_list VARCHAR2
1162 , x_return_status out nocopy VARCHAR2
1163 , x_msg_count out nocopy NUMBER
1164 , x_msg_data out nocopy VARCHAR2
1165 , p5_a0 NUMBER
1166 , p5_a1 NUMBER
1167 , p5_a2 VARCHAR2
1168 , p5_a3 VARCHAR2
1169 , p5_a4 VARCHAR2
1170 , p5_a5 VARCHAR2
1171 , p5_a6 VARCHAR2
1172 , p5_a7 VARCHAR2
1173 , p5_a8 VARCHAR2
1174 , p5_a9 VARCHAR2
1175 , p5_a10 VARCHAR2
1176 , p5_a11 VARCHAR2
1177 , p5_a12 VARCHAR2
1178 , p5_a13 VARCHAR2
1179 , p5_a14 VARCHAR2
1180 , p5_a15 VARCHAR2
1181 , p5_a16 VARCHAR2
1182 , p5_a17 VARCHAR2
1183 , p5_a18 VARCHAR2
1184 , p5_a19 NUMBER
1185 , p5_a20 VARCHAR2
1186 , p5_a21 NUMBER
1187 , p5_a22 VARCHAR2
1188 , p5_a23 NUMBER
1189 , p5_a24 NUMBER
1190 , p5_a25 NUMBER
1191 , p5_a26 VARCHAR2
1192 , p5_a27 NUMBER
1193 , p5_a28 NUMBER
1194 , p5_a29 NUMBER
1195 , p5_a30 NUMBER
1196 , p5_a31 NUMBER
1197 , p5_a32 NUMBER
1198 , p5_a33 VARCHAR2
1199 , p5_a34 VARCHAR2
1200 , p5_a35 VARCHAR2
1201 , p5_a36 VARCHAR2
1202 )
1203
1204 as
1205 ddp_assv_rec okl_ass_pvt.assv_rec_type;
1206 ddindx binary_integer; indx binary_integer;
1207 begin
1208
1209 -- copy data to the local IN or IN-OUT args, if any
1210
1211
1212
1213
1214
1215 ddp_assv_rec.id := p5_a0;
1216 ddp_assv_rec.object_version_number := p5_a1;
1217 ddp_assv_rec.attribute_category := p5_a2;
1218 ddp_assv_rec.attribute1 := p5_a3;
1219 ddp_assv_rec.attribute2 := p5_a4;
1220 ddp_assv_rec.attribute3 := p5_a5;
1221 ddp_assv_rec.attribute4 := p5_a6;
1222 ddp_assv_rec.attribute5 := p5_a7;
1223 ddp_assv_rec.attribute6 := p5_a8;
1224 ddp_assv_rec.attribute7 := p5_a9;
1225 ddp_assv_rec.attribute8 := p5_a10;
1226 ddp_assv_rec.attribute9 := p5_a11;
1227 ddp_assv_rec.attribute10 := p5_a12;
1228 ddp_assv_rec.attribute11 := p5_a13;
1229 ddp_assv_rec.attribute12 := p5_a14;
1230 ddp_assv_rec.attribute13 := p5_a15;
1231 ddp_assv_rec.attribute14 := p5_a16;
1232 ddp_assv_rec.attribute15 := p5_a17;
1233 ddp_assv_rec.parent_object_code := p5_a18;
1234 ddp_assv_rec.parent_object_id := p5_a19;
1235 ddp_assv_rec.asset_number := p5_a20;
1236 ddp_assv_rec.install_site_id := p5_a21;
1237 ddp_assv_rec.structured_pricing := p5_a22;
1238 ddp_assv_rec.rate_template_id := p5_a23;
1239 ddp_assv_rec.rate_card_id := p5_a24;
1240 ddp_assv_rec.lease_rate_factor := p5_a25;
1241 ddp_assv_rec.target_arrears := p5_a26;
1242 ddp_assv_rec.oec := p5_a27;
1243 ddp_assv_rec.oec_percentage := p5_a28;
1244 ddp_assv_rec.end_of_term_value_default := p5_a29;
1245 ddp_assv_rec.end_of_term_value := p5_a30;
1246 ddp_assv_rec.orig_asset_id := p5_a31;
1247 ddp_assv_rec.target_amount := p5_a32;
1248 ddp_assv_rec.target_frequency := p5_a33;
1249 ddp_assv_rec.short_description := p5_a34;
1250 ddp_assv_rec.description := p5_a35;
1251 ddp_assv_rec.comments := p5_a36;
1252
1253 -- here's the delegated call to the old PL/SQL routine
1254 okl_ass_pvt.delete_row(p_api_version,
1255 p_init_msg_list,
1256 x_return_status,
1257 x_msg_count,
1258 x_msg_data,
1259 ddp_assv_rec);
1260
1261 -- copy data back from the local variables to OUT or IN-OUT args, if any
1262
1263
1264
1265
1266
1267 end;
1268
1269 end okl_ass_pvt_w;