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