[Home] [Help]
PACKAGE BODY: APPS.OKL_IRV_PVT_W
Source
1 package body okl_irv_pvt_w as
2 /* $Header: OKLIIRVB.pls 120.2 2005/07/22 10:06:49 smadhava noship $ */
3 procedure rosetta_table_copy_in_p1(t out nocopy okl_irv_pvt.okl_irv_tbl, a0 JTF_NUMBER_TABLE
4 , a1 JTF_NUMBER_TABLE
5 , a2 JTF_NUMBER_TABLE
6 , a3 JTF_NUMBER_TABLE
7 , a4 JTF_NUMBER_TABLE
8 , a5 JTF_NUMBER_TABLE
9 , a6 JTF_NUMBER_TABLE
10 , a7 JTF_DATE_TABLE
11 , a8 JTF_NUMBER_TABLE
12 , a9 JTF_DATE_TABLE
13 , a10 JTF_NUMBER_TABLE
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).item_resdl_value_id := a0(indx);
23 t(ddindx).object_version_number := a1(indx);
24 t(ddindx).item_residual_id := a2(indx);
25 t(ddindx).item_resdl_version_id := a3(indx);
26 t(ddindx).term_in_months := a4(indx);
27 t(ddindx).residual_value := a5(indx);
28 t(ddindx).created_by := a6(indx);
29 t(ddindx).creation_date := a7(indx);
30 t(ddindx).last_updated_by := a8(indx);
31 t(ddindx).last_update_date := a9(indx);
32 t(ddindx).last_update_login := 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_p1;
42 procedure rosetta_table_copy_out_p1(t okl_irv_pvt.okl_irv_tbl, a0 out nocopy JTF_NUMBER_TABLE
43 , a1 out nocopy JTF_NUMBER_TABLE
44 , a2 out nocopy JTF_NUMBER_TABLE
45 , a3 out nocopy JTF_NUMBER_TABLE
46 , a4 out nocopy JTF_NUMBER_TABLE
47 , a5 out nocopy JTF_NUMBER_TABLE
48 , a6 out nocopy JTF_NUMBER_TABLE
49 , a7 out nocopy JTF_DATE_TABLE
50 , a8 out nocopy JTF_NUMBER_TABLE
51 , a9 out nocopy JTF_DATE_TABLE
52 , a10 out nocopy JTF_NUMBER_TABLE
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_NUMBER_TABLE();
60 a3 := JTF_NUMBER_TABLE();
61 a4 := JTF_NUMBER_TABLE();
62 a5 := JTF_NUMBER_TABLE();
63 a6 := JTF_NUMBER_TABLE();
64 a7 := JTF_DATE_TABLE();
65 a8 := JTF_NUMBER_TABLE();
66 a9 := JTF_DATE_TABLE();
67 a10 := JTF_NUMBER_TABLE();
68 else
69 a0 := JTF_NUMBER_TABLE();
70 a1 := JTF_NUMBER_TABLE();
71 a2 := JTF_NUMBER_TABLE();
72 a3 := JTF_NUMBER_TABLE();
73 a4 := JTF_NUMBER_TABLE();
74 a5 := JTF_NUMBER_TABLE();
75 a6 := JTF_NUMBER_TABLE();
76 a7 := JTF_DATE_TABLE();
77 a8 := JTF_NUMBER_TABLE();
78 a9 := JTF_DATE_TABLE();
79 a10 := JTF_NUMBER_TABLE();
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).item_resdl_value_id;
96 a1(indx) := t(ddindx).object_version_number;
97 a2(indx) := t(ddindx).item_residual_id;
98 a3(indx) := t(ddindx).item_resdl_version_id;
99 a4(indx) := t(ddindx).term_in_months;
100 a5(indx) := t(ddindx).residual_value;
101 a6(indx) := t(ddindx).created_by;
102 a7(indx) := t(ddindx).creation_date;
103 a8(indx) := t(ddindx).last_updated_by;
104 a9(indx) := t(ddindx).last_update_date;
105 a10(indx) := t(ddindx).last_update_login;
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_p1;
115
116 procedure insert_row(p_api_version NUMBER
117 , p_init_msg_list VARCHAR2
118 , x_return_status out nocopy VARCHAR2
119 , x_msg_count out nocopy NUMBER
120 , x_msg_data out nocopy VARCHAR2
121 , p5_a0 NUMBER
122 , p5_a1 NUMBER
123 , p5_a2 NUMBER
124 , p5_a3 NUMBER
125 , p5_a4 NUMBER
126 , p5_a5 NUMBER
127 , p5_a6 NUMBER
128 , p5_a7 DATE
129 , p5_a8 NUMBER
130 , p5_a9 DATE
131 , p5_a10 NUMBER
132 , p6_a0 out nocopy NUMBER
133 , p6_a1 out nocopy NUMBER
134 , p6_a2 out nocopy NUMBER
135 , p6_a3 out nocopy NUMBER
136 , p6_a4 out nocopy NUMBER
137 , p6_a5 out nocopy NUMBER
138 , p6_a6 out nocopy NUMBER
139 , p6_a7 out nocopy DATE
140 , p6_a8 out nocopy NUMBER
141 , p6_a9 out nocopy DATE
142 , p6_a10 out nocopy NUMBER
143 )
144
145 as
146 ddp_irv_rec okl_irv_pvt.okl_irv_rec;
147 ddx_irv_rec okl_irv_pvt.okl_irv_rec;
148 ddindx binary_integer; indx binary_integer;
149 begin
150
151 -- copy data to the local IN or IN-OUT args, if any
152
153
154
155
156
157 ddp_irv_rec.item_resdl_value_id := p5_a0;
158 ddp_irv_rec.object_version_number := p5_a1;
159 ddp_irv_rec.item_residual_id := p5_a2;
160 ddp_irv_rec.item_resdl_version_id := p5_a3;
161 ddp_irv_rec.term_in_months := p5_a4;
162 ddp_irv_rec.residual_value := p5_a5;
163 ddp_irv_rec.created_by := p5_a6;
164 ddp_irv_rec.creation_date := p5_a7;
165 ddp_irv_rec.last_updated_by := p5_a8;
166 ddp_irv_rec.last_update_date := p5_a9;
167 ddp_irv_rec.last_update_login := p5_a10;
168
169
170 -- here's the delegated call to the old PL/SQL routine
171 okl_irv_pvt.insert_row(p_api_version,
172 p_init_msg_list,
173 x_return_status,
174 x_msg_count,
175 x_msg_data,
176 ddp_irv_rec,
177 ddx_irv_rec);
178
179 -- copy data back from the local variables to OUT or IN-OUT args, if any
180
181
182
183
184
185
186 p6_a0 := ddx_irv_rec.item_resdl_value_id;
187 p6_a1 := ddx_irv_rec.object_version_number;
188 p6_a2 := ddx_irv_rec.item_residual_id;
189 p6_a3 := ddx_irv_rec.item_resdl_version_id;
190 p6_a4 := ddx_irv_rec.term_in_months;
191 p6_a5 := ddx_irv_rec.residual_value;
192 p6_a6 := ddx_irv_rec.created_by;
193 p6_a7 := ddx_irv_rec.creation_date;
194 p6_a8 := ddx_irv_rec.last_updated_by;
195 p6_a9 := ddx_irv_rec.last_update_date;
196 p6_a10 := ddx_irv_rec.last_update_login;
197 end;
198
199 procedure insert_row(p_api_version NUMBER
200 , p_init_msg_list VARCHAR2
201 , x_return_status out nocopy VARCHAR2
202 , x_msg_count out nocopy NUMBER
203 , x_msg_data out nocopy VARCHAR2
204 , p5_a0 JTF_NUMBER_TABLE
205 , p5_a1 JTF_NUMBER_TABLE
206 , p5_a2 JTF_NUMBER_TABLE
207 , p5_a3 JTF_NUMBER_TABLE
208 , p5_a4 JTF_NUMBER_TABLE
209 , p5_a5 JTF_NUMBER_TABLE
210 , p5_a6 JTF_NUMBER_TABLE
211 , p5_a7 JTF_DATE_TABLE
212 , p5_a8 JTF_NUMBER_TABLE
213 , p5_a9 JTF_DATE_TABLE
214 , p5_a10 JTF_NUMBER_TABLE
215 , p6_a0 out nocopy JTF_NUMBER_TABLE
216 , p6_a1 out nocopy JTF_NUMBER_TABLE
217 , p6_a2 out nocopy JTF_NUMBER_TABLE
218 , p6_a3 out nocopy JTF_NUMBER_TABLE
219 , p6_a4 out nocopy JTF_NUMBER_TABLE
220 , p6_a5 out nocopy JTF_NUMBER_TABLE
221 , p6_a6 out nocopy JTF_NUMBER_TABLE
222 , p6_a7 out nocopy JTF_DATE_TABLE
223 , p6_a8 out nocopy JTF_NUMBER_TABLE
224 , p6_a9 out nocopy JTF_DATE_TABLE
225 , p6_a10 out nocopy JTF_NUMBER_TABLE
226 )
227
228 as
229 ddp_irv_tbl okl_irv_pvt.okl_irv_tbl;
230 ddx_irv_tbl okl_irv_pvt.okl_irv_tbl;
231 ddindx binary_integer; indx binary_integer;
232 begin
233
234 -- copy data to the local IN or IN-OUT args, if any
235
236
237
238
239
240 okl_irv_pvt_w.rosetta_table_copy_in_p1(ddp_irv_tbl, p5_a0
241 , p5_a1
242 , p5_a2
243 , p5_a3
244 , p5_a4
245 , p5_a5
246 , p5_a6
247 , p5_a7
248 , p5_a8
249 , p5_a9
250 , p5_a10
251 );
252
253
254 -- here's the delegated call to the old PL/SQL routine
255 okl_irv_pvt.insert_row(p_api_version,
256 p_init_msg_list,
257 x_return_status,
258 x_msg_count,
259 x_msg_data,
260 ddp_irv_tbl,
261 ddx_irv_tbl);
262
263 -- copy data back from the local variables to OUT or IN-OUT args, if any
264
265
266
267
268
269
270 okl_irv_pvt_w.rosetta_table_copy_out_p1(ddx_irv_tbl, p6_a0
271 , p6_a1
272 , p6_a2
273 , p6_a3
274 , p6_a4
275 , p6_a5
276 , p6_a6
277 , p6_a7
278 , p6_a8
279 , p6_a9
280 , p6_a10
281 );
282 end;
283
284 procedure update_row(p_api_version NUMBER
285 , p_init_msg_list VARCHAR2
286 , x_return_status out nocopy VARCHAR2
287 , x_msg_count out nocopy NUMBER
288 , x_msg_data out nocopy VARCHAR2
289 , p5_a0 NUMBER
290 , p5_a1 NUMBER
291 , p5_a2 NUMBER
292 , p5_a3 NUMBER
293 , p5_a4 NUMBER
294 , p5_a5 NUMBER
295 , p5_a6 NUMBER
296 , p5_a7 DATE
297 , p5_a8 NUMBER
298 , p5_a9 DATE
299 , p5_a10 NUMBER
300 , p6_a0 out nocopy NUMBER
301 , p6_a1 out nocopy NUMBER
302 , p6_a2 out nocopy NUMBER
303 , p6_a3 out nocopy NUMBER
304 , p6_a4 out nocopy NUMBER
305 , p6_a5 out nocopy NUMBER
306 , p6_a6 out nocopy NUMBER
307 , p6_a7 out nocopy DATE
308 , p6_a8 out nocopy NUMBER
309 , p6_a9 out nocopy DATE
310 , p6_a10 out nocopy NUMBER
311 )
312
313 as
314 ddp_irv_rec okl_irv_pvt.okl_irv_rec;
315 ddx_irv_rec okl_irv_pvt.okl_irv_rec;
316 ddindx binary_integer; indx binary_integer;
317 begin
318
319 -- copy data to the local IN or IN-OUT args, if any
320
321
322
323
324
325 ddp_irv_rec.item_resdl_value_id := p5_a0;
326 ddp_irv_rec.object_version_number := p5_a1;
327 ddp_irv_rec.item_residual_id := p5_a2;
328 ddp_irv_rec.item_resdl_version_id := p5_a3;
329 ddp_irv_rec.term_in_months := p5_a4;
330 ddp_irv_rec.residual_value := p5_a5;
331 ddp_irv_rec.created_by := p5_a6;
332 ddp_irv_rec.creation_date := p5_a7;
333 ddp_irv_rec.last_updated_by := p5_a8;
334 ddp_irv_rec.last_update_date := p5_a9;
335 ddp_irv_rec.last_update_login := p5_a10;
336
337
338 -- here's the delegated call to the old PL/SQL routine
339 okl_irv_pvt.update_row(p_api_version,
340 p_init_msg_list,
341 x_return_status,
342 x_msg_count,
343 x_msg_data,
344 ddp_irv_rec,
345 ddx_irv_rec);
346
347 -- copy data back from the local variables to OUT or IN-OUT args, if any
348
349
350
351
352
353
354 p6_a0 := ddx_irv_rec.item_resdl_value_id;
355 p6_a1 := ddx_irv_rec.object_version_number;
356 p6_a2 := ddx_irv_rec.item_residual_id;
357 p6_a3 := ddx_irv_rec.item_resdl_version_id;
358 p6_a4 := ddx_irv_rec.term_in_months;
359 p6_a5 := ddx_irv_rec.residual_value;
360 p6_a6 := ddx_irv_rec.created_by;
361 p6_a7 := ddx_irv_rec.creation_date;
362 p6_a8 := ddx_irv_rec.last_updated_by;
363 p6_a9 := ddx_irv_rec.last_update_date;
364 p6_a10 := ddx_irv_rec.last_update_login;
365 end;
366
367 procedure update_row(p_api_version NUMBER
368 , p_init_msg_list VARCHAR2
369 , x_return_status out nocopy VARCHAR2
370 , x_msg_count out nocopy NUMBER
371 , x_msg_data out nocopy VARCHAR2
372 , p5_a0 JTF_NUMBER_TABLE
373 , p5_a1 JTF_NUMBER_TABLE
374 , p5_a2 JTF_NUMBER_TABLE
375 , p5_a3 JTF_NUMBER_TABLE
376 , p5_a4 JTF_NUMBER_TABLE
377 , p5_a5 JTF_NUMBER_TABLE
378 , p5_a6 JTF_NUMBER_TABLE
379 , p5_a7 JTF_DATE_TABLE
380 , p5_a8 JTF_NUMBER_TABLE
381 , p5_a9 JTF_DATE_TABLE
382 , p5_a10 JTF_NUMBER_TABLE
383 , p6_a0 out nocopy JTF_NUMBER_TABLE
384 , p6_a1 out nocopy JTF_NUMBER_TABLE
385 , p6_a2 out nocopy JTF_NUMBER_TABLE
386 , p6_a3 out nocopy JTF_NUMBER_TABLE
387 , p6_a4 out nocopy JTF_NUMBER_TABLE
388 , p6_a5 out nocopy JTF_NUMBER_TABLE
389 , p6_a6 out nocopy JTF_NUMBER_TABLE
390 , p6_a7 out nocopy JTF_DATE_TABLE
391 , p6_a8 out nocopy JTF_NUMBER_TABLE
392 , p6_a9 out nocopy JTF_DATE_TABLE
393 , p6_a10 out nocopy JTF_NUMBER_TABLE
394 )
395
396 as
397 ddp_irv_tbl okl_irv_pvt.okl_irv_tbl;
398 ddx_irv_tbl okl_irv_pvt.okl_irv_tbl;
399 ddindx binary_integer; indx binary_integer;
400 begin
401
402 -- copy data to the local IN or IN-OUT args, if any
403
404
405
406
407
408 okl_irv_pvt_w.rosetta_table_copy_in_p1(ddp_irv_tbl, p5_a0
409 , p5_a1
410 , p5_a2
411 , p5_a3
412 , p5_a4
413 , p5_a5
414 , p5_a6
415 , p5_a7
416 , p5_a8
417 , p5_a9
418 , p5_a10
419 );
420
421
422 -- here's the delegated call to the old PL/SQL routine
423 okl_irv_pvt.update_row(p_api_version,
424 p_init_msg_list,
425 x_return_status,
426 x_msg_count,
427 x_msg_data,
428 ddp_irv_tbl,
429 ddx_irv_tbl);
430
431 -- copy data back from the local variables to OUT or IN-OUT args, if any
432
433
434
435
436
437
438 okl_irv_pvt_w.rosetta_table_copy_out_p1(ddx_irv_tbl, p6_a0
439 , p6_a1
440 , p6_a2
441 , p6_a3
442 , p6_a4
443 , p6_a5
444 , p6_a6
445 , p6_a7
446 , p6_a8
447 , p6_a9
448 , p6_a10
449 );
450 end;
451
452 procedure delete_row(p_api_version NUMBER
453 , p_init_msg_list VARCHAR2
454 , x_return_status out nocopy VARCHAR2
455 , x_msg_count out nocopy NUMBER
456 , x_msg_data out nocopy VARCHAR2
457 , p5_a0 NUMBER
458 , p5_a1 NUMBER
459 , p5_a2 NUMBER
460 , p5_a3 NUMBER
461 , p5_a4 NUMBER
462 , p5_a5 NUMBER
463 , p5_a6 NUMBER
464 , p5_a7 DATE
465 , p5_a8 NUMBER
466 , p5_a9 DATE
467 , p5_a10 NUMBER
468 )
469
470 as
471 ddp_irv_rec okl_irv_pvt.okl_irv_rec;
472 ddindx binary_integer; indx binary_integer;
473 begin
474
475 -- copy data to the local IN or IN-OUT args, if any
476
477
478
479
480
481 ddp_irv_rec.item_resdl_value_id := p5_a0;
482 ddp_irv_rec.object_version_number := p5_a1;
483 ddp_irv_rec.item_residual_id := p5_a2;
484 ddp_irv_rec.item_resdl_version_id := p5_a3;
485 ddp_irv_rec.term_in_months := p5_a4;
486 ddp_irv_rec.residual_value := p5_a5;
487 ddp_irv_rec.created_by := p5_a6;
488 ddp_irv_rec.creation_date := p5_a7;
489 ddp_irv_rec.last_updated_by := p5_a8;
490 ddp_irv_rec.last_update_date := p5_a9;
491 ddp_irv_rec.last_update_login := p5_a10;
492
493 -- here's the delegated call to the old PL/SQL routine
494 okl_irv_pvt.delete_row(p_api_version,
495 p_init_msg_list,
496 x_return_status,
497 x_msg_count,
498 x_msg_data,
499 ddp_irv_rec);
500
501 -- copy data back from the local variables to OUT or IN-OUT args, if any
502
503
504
505
506
507 end;
508
509 procedure delete_row(p_api_version NUMBER
510 , p_init_msg_list VARCHAR2
511 , x_return_status out nocopy VARCHAR2
512 , x_msg_count out nocopy NUMBER
513 , x_msg_data out nocopy VARCHAR2
514 , p5_a0 JTF_NUMBER_TABLE
515 , p5_a1 JTF_NUMBER_TABLE
516 , p5_a2 JTF_NUMBER_TABLE
517 , p5_a3 JTF_NUMBER_TABLE
518 , p5_a4 JTF_NUMBER_TABLE
519 , p5_a5 JTF_NUMBER_TABLE
520 , p5_a6 JTF_NUMBER_TABLE
521 , p5_a7 JTF_DATE_TABLE
522 , p5_a8 JTF_NUMBER_TABLE
523 , p5_a9 JTF_DATE_TABLE
524 , p5_a10 JTF_NUMBER_TABLE
525 )
526
527 as
528 ddp_irv_tbl okl_irv_pvt.okl_irv_tbl;
529 ddindx binary_integer; indx binary_integer;
530 begin
531
532 -- copy data to the local IN or IN-OUT args, if any
533
534
535
536
537
538 okl_irv_pvt_w.rosetta_table_copy_in_p1(ddp_irv_tbl, p5_a0
539 , p5_a1
540 , p5_a2
541 , p5_a3
542 , p5_a4
543 , p5_a5
544 , p5_a6
545 , p5_a7
546 , p5_a8
547 , p5_a9
548 , p5_a10
549 );
550
551 -- here's the delegated call to the old PL/SQL routine
552 okl_irv_pvt.delete_row(p_api_version,
553 p_init_msg_list,
554 x_return_status,
555 x_msg_count,
556 x_msg_data,
557 ddp_irv_tbl);
558
559 -- copy data back from the local variables to OUT or IN-OUT args, if any
560
561
562
563
564
565 end;
566
567 end okl_irv_pvt_w;