[Home] [Help]
PACKAGE BODY: APPS.OKL_IRH_PVT_W
Source
1 package body okl_irh_pvt_w as
2 /* $Header: OKLIIRHB.pls 120.1 2005/07/11 10:25:40 smadhava noship $ */
3 procedure rosetta_table_copy_in_p1(t out nocopy okl_irh_pvt.okl_irhv_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_NUMBER_TABLE
11 , a8 JTF_VARCHAR2_TABLE_100
12 , a9 JTF_VARCHAR2_TABLE_100
13 , a10 JTF_VARCHAR2_TABLE_100
14 , a11 JTF_VARCHAR2_TABLE_100
15 , a12 JTF_DATE_TABLE
16 , a13 JTF_DATE_TABLE
17 , a14 JTF_NUMBER_TABLE
18 , a15 JTF_NUMBER_TABLE
19 , a16 JTF_DATE_TABLE
20 , a17 JTF_NUMBER_TABLE
21 , a18 JTF_DATE_TABLE
22 , a19 JTF_NUMBER_TABLE
23 ) as
24 ddindx binary_integer; indx binary_integer;
25 begin
26 if a0 is not null and a0.count > 0 then
27 if a0.count > 0 then
28 indx := a0.first;
29 ddindx := 1;
30 while true loop
31 t(ddindx).item_residual_id := a0(indx);
32 t(ddindx).orig_item_residual_id := a1(indx);
33 t(ddindx).object_version_number := a2(indx);
34 t(ddindx).inventory_item_id := a3(indx);
35 t(ddindx).organization_id := a4(indx);
36 t(ddindx).category_id := a5(indx);
37 t(ddindx).category_set_id := a6(indx);
38 t(ddindx).resi_category_set_id := a7(indx);
39 t(ddindx).category_type_code := a8(indx);
40 t(ddindx).residual_type_code := a9(indx);
41 t(ddindx).currency_code := a10(indx);
42 t(ddindx).sts_code := a11(indx);
43 t(ddindx).effective_from_date := a12(indx);
44 t(ddindx).effective_to_date := a13(indx);
45 t(ddindx).org_id := a14(indx);
46 t(ddindx).created_by := a15(indx);
47 t(ddindx).creation_date := a16(indx);
48 t(ddindx).last_updated_by := a17(indx);
49 t(ddindx).last_update_date := a18(indx);
50 t(ddindx).last_update_login := a19(indx);
51 ddindx := ddindx+1;
52 if a0.last =indx
53 then exit;
54 end if;
55 indx := a0.next(indx);
56 end loop;
57 end if;
58 end if;
59 end rosetta_table_copy_in_p1;
60 procedure rosetta_table_copy_out_p1(t okl_irh_pvt.okl_irhv_tbl, a0 out nocopy JTF_NUMBER_TABLE
61 , a1 out nocopy JTF_NUMBER_TABLE
62 , a2 out nocopy JTF_NUMBER_TABLE
63 , a3 out nocopy JTF_NUMBER_TABLE
64 , a4 out nocopy JTF_NUMBER_TABLE
65 , a5 out nocopy JTF_NUMBER_TABLE
66 , a6 out nocopy JTF_NUMBER_TABLE
67 , a7 out nocopy JTF_NUMBER_TABLE
68 , a8 out nocopy JTF_VARCHAR2_TABLE_100
69 , a9 out nocopy JTF_VARCHAR2_TABLE_100
70 , a10 out nocopy JTF_VARCHAR2_TABLE_100
71 , a11 out nocopy JTF_VARCHAR2_TABLE_100
72 , a12 out nocopy JTF_DATE_TABLE
73 , a13 out nocopy JTF_DATE_TABLE
74 , a14 out nocopy JTF_NUMBER_TABLE
75 , a15 out nocopy JTF_NUMBER_TABLE
76 , a16 out nocopy JTF_DATE_TABLE
77 , a17 out nocopy JTF_NUMBER_TABLE
78 , a18 out nocopy JTF_DATE_TABLE
79 , a19 out nocopy JTF_NUMBER_TABLE
80 ) as
81 ddindx binary_integer; indx binary_integer;
82 begin
83 if t is null or t.count = 0 then
84 a0 := JTF_NUMBER_TABLE();
85 a1 := JTF_NUMBER_TABLE();
86 a2 := JTF_NUMBER_TABLE();
87 a3 := JTF_NUMBER_TABLE();
88 a4 := JTF_NUMBER_TABLE();
89 a5 := JTF_NUMBER_TABLE();
90 a6 := JTF_NUMBER_TABLE();
91 a7 := JTF_NUMBER_TABLE();
92 a8 := JTF_VARCHAR2_TABLE_100();
93 a9 := JTF_VARCHAR2_TABLE_100();
94 a10 := JTF_VARCHAR2_TABLE_100();
95 a11 := JTF_VARCHAR2_TABLE_100();
96 a12 := JTF_DATE_TABLE();
97 a13 := JTF_DATE_TABLE();
98 a14 := JTF_NUMBER_TABLE();
99 a15 := JTF_NUMBER_TABLE();
100 a16 := JTF_DATE_TABLE();
101 a17 := JTF_NUMBER_TABLE();
102 a18 := JTF_DATE_TABLE();
103 a19 := JTF_NUMBER_TABLE();
104 else
105 a0 := JTF_NUMBER_TABLE();
106 a1 := JTF_NUMBER_TABLE();
107 a2 := JTF_NUMBER_TABLE();
108 a3 := JTF_NUMBER_TABLE();
109 a4 := JTF_NUMBER_TABLE();
110 a5 := JTF_NUMBER_TABLE();
111 a6 := JTF_NUMBER_TABLE();
112 a7 := JTF_NUMBER_TABLE();
113 a8 := JTF_VARCHAR2_TABLE_100();
114 a9 := JTF_VARCHAR2_TABLE_100();
115 a10 := JTF_VARCHAR2_TABLE_100();
116 a11 := JTF_VARCHAR2_TABLE_100();
117 a12 := JTF_DATE_TABLE();
118 a13 := JTF_DATE_TABLE();
119 a14 := JTF_NUMBER_TABLE();
120 a15 := JTF_NUMBER_TABLE();
121 a16 := JTF_DATE_TABLE();
122 a17 := JTF_NUMBER_TABLE();
123 a18 := JTF_DATE_TABLE();
124 a19 := JTF_NUMBER_TABLE();
125 if t.count > 0 then
126 a0.extend(t.count);
127 a1.extend(t.count);
128 a2.extend(t.count);
129 a3.extend(t.count);
130 a4.extend(t.count);
131 a5.extend(t.count);
132 a6.extend(t.count);
133 a7.extend(t.count);
134 a8.extend(t.count);
135 a9.extend(t.count);
136 a10.extend(t.count);
137 a11.extend(t.count);
138 a12.extend(t.count);
139 a13.extend(t.count);
140 a14.extend(t.count);
141 a15.extend(t.count);
142 a16.extend(t.count);
143 a17.extend(t.count);
144 a18.extend(t.count);
145 a19.extend(t.count);
146 ddindx := t.first;
147 indx := 1;
148 while true loop
149 a0(indx) := t(ddindx).item_residual_id;
150 a1(indx) := t(ddindx).orig_item_residual_id;
151 a2(indx) := t(ddindx).object_version_number;
152 a3(indx) := t(ddindx).inventory_item_id;
153 a4(indx) := t(ddindx).organization_id;
154 a5(indx) := t(ddindx).category_id;
155 a6(indx) := t(ddindx).category_set_id;
156 a7(indx) := t(ddindx).resi_category_set_id;
157 a8(indx) := t(ddindx).category_type_code;
158 a9(indx) := t(ddindx).residual_type_code;
159 a10(indx) := t(ddindx).currency_code;
160 a11(indx) := t(ddindx).sts_code;
161 a12(indx) := t(ddindx).effective_from_date;
162 a13(indx) := t(ddindx).effective_to_date;
163 a14(indx) := t(ddindx).org_id;
164 a15(indx) := t(ddindx).created_by;
165 a16(indx) := t(ddindx).creation_date;
166 a17(indx) := t(ddindx).last_updated_by;
167 a18(indx) := t(ddindx).last_update_date;
168 a19(indx) := t(ddindx).last_update_login;
169 indx := indx+1;
170 if t.last =ddindx
171 then exit;
172 end if;
173 ddindx := t.next(ddindx);
174 end loop;
175 end if;
176 end if;
177 end rosetta_table_copy_out_p1;
178
179 procedure rosetta_table_copy_in_p3(t out nocopy okl_irh_pvt.okl_irh_tbl, a0 JTF_NUMBER_TABLE
180 , a1 JTF_NUMBER_TABLE
181 , a2 JTF_NUMBER_TABLE
182 , a3 JTF_NUMBER_TABLE
183 , a4 JTF_NUMBER_TABLE
184 , a5 JTF_NUMBER_TABLE
185 , a6 JTF_NUMBER_TABLE
186 , a7 JTF_NUMBER_TABLE
187 , a8 JTF_VARCHAR2_TABLE_100
188 , a9 JTF_VARCHAR2_TABLE_100
189 , a10 JTF_VARCHAR2_TABLE_100
190 , a11 JTF_VARCHAR2_TABLE_100
191 , a12 JTF_DATE_TABLE
192 , a13 JTF_DATE_TABLE
193 , a14 JTF_NUMBER_TABLE
194 , a15 JTF_NUMBER_TABLE
195 , a16 JTF_DATE_TABLE
196 , a17 JTF_NUMBER_TABLE
197 , a18 JTF_DATE_TABLE
198 , a19 JTF_NUMBER_TABLE
199 ) as
200 ddindx binary_integer; indx binary_integer;
201 begin
202 if a0 is not null and a0.count > 0 then
203 if a0.count > 0 then
204 indx := a0.first;
205 ddindx := 1;
206 while true loop
207 t(ddindx).item_residual_id := a0(indx);
208 t(ddindx).orig_item_residual_id := a1(indx);
209 t(ddindx).object_version_number := a2(indx);
210 t(ddindx).inventory_item_id := a3(indx);
211 t(ddindx).organization_id := a4(indx);
212 t(ddindx).category_id := a5(indx);
213 t(ddindx).category_set_id := a6(indx);
214 t(ddindx).resi_category_set_id := a7(indx);
215 t(ddindx).category_type_code := a8(indx);
216 t(ddindx).residual_type_code := a9(indx);
217 t(ddindx).currency_code := a10(indx);
218 t(ddindx).sts_code := a11(indx);
219 t(ddindx).effective_from_date := a12(indx);
220 t(ddindx).effective_to_date := a13(indx);
221 t(ddindx).org_id := a14(indx);
222 t(ddindx).created_by := a15(indx);
223 t(ddindx).creation_date := a16(indx);
224 t(ddindx).last_updated_by := a17(indx);
225 t(ddindx).last_update_date := a18(indx);
226 t(ddindx).last_update_login := a19(indx);
227 ddindx := ddindx+1;
228 if a0.last =indx
229 then exit;
230 end if;
231 indx := a0.next(indx);
232 end loop;
233 end if;
234 end if;
235 end rosetta_table_copy_in_p3;
236 procedure rosetta_table_copy_out_p3(t okl_irh_pvt.okl_irh_tbl, a0 out nocopy JTF_NUMBER_TABLE
237 , a1 out nocopy JTF_NUMBER_TABLE
238 , a2 out nocopy JTF_NUMBER_TABLE
239 , a3 out nocopy JTF_NUMBER_TABLE
240 , a4 out nocopy JTF_NUMBER_TABLE
241 , a5 out nocopy JTF_NUMBER_TABLE
242 , a6 out nocopy JTF_NUMBER_TABLE
243 , a7 out nocopy JTF_NUMBER_TABLE
244 , a8 out nocopy JTF_VARCHAR2_TABLE_100
245 , a9 out nocopy JTF_VARCHAR2_TABLE_100
246 , a10 out nocopy JTF_VARCHAR2_TABLE_100
247 , a11 out nocopy JTF_VARCHAR2_TABLE_100
248 , a12 out nocopy JTF_DATE_TABLE
249 , a13 out nocopy JTF_DATE_TABLE
250 , a14 out nocopy JTF_NUMBER_TABLE
251 , a15 out nocopy JTF_NUMBER_TABLE
252 , a16 out nocopy JTF_DATE_TABLE
253 , a17 out nocopy JTF_NUMBER_TABLE
254 , a18 out nocopy JTF_DATE_TABLE
255 , a19 out nocopy JTF_NUMBER_TABLE
256 ) as
257 ddindx binary_integer; indx binary_integer;
258 begin
259 if t is null or t.count = 0 then
260 a0 := JTF_NUMBER_TABLE();
261 a1 := JTF_NUMBER_TABLE();
262 a2 := JTF_NUMBER_TABLE();
263 a3 := JTF_NUMBER_TABLE();
264 a4 := JTF_NUMBER_TABLE();
265 a5 := JTF_NUMBER_TABLE();
266 a6 := JTF_NUMBER_TABLE();
267 a7 := JTF_NUMBER_TABLE();
268 a8 := JTF_VARCHAR2_TABLE_100();
269 a9 := JTF_VARCHAR2_TABLE_100();
270 a10 := JTF_VARCHAR2_TABLE_100();
271 a11 := JTF_VARCHAR2_TABLE_100();
272 a12 := JTF_DATE_TABLE();
273 a13 := JTF_DATE_TABLE();
274 a14 := JTF_NUMBER_TABLE();
275 a15 := JTF_NUMBER_TABLE();
276 a16 := JTF_DATE_TABLE();
277 a17 := JTF_NUMBER_TABLE();
278 a18 := JTF_DATE_TABLE();
279 a19 := JTF_NUMBER_TABLE();
280 else
281 a0 := JTF_NUMBER_TABLE();
282 a1 := JTF_NUMBER_TABLE();
283 a2 := JTF_NUMBER_TABLE();
284 a3 := JTF_NUMBER_TABLE();
285 a4 := JTF_NUMBER_TABLE();
286 a5 := JTF_NUMBER_TABLE();
287 a6 := JTF_NUMBER_TABLE();
288 a7 := JTF_NUMBER_TABLE();
289 a8 := JTF_VARCHAR2_TABLE_100();
290 a9 := JTF_VARCHAR2_TABLE_100();
291 a10 := JTF_VARCHAR2_TABLE_100();
292 a11 := JTF_VARCHAR2_TABLE_100();
293 a12 := JTF_DATE_TABLE();
294 a13 := JTF_DATE_TABLE();
295 a14 := JTF_NUMBER_TABLE();
296 a15 := JTF_NUMBER_TABLE();
297 a16 := JTF_DATE_TABLE();
298 a17 := JTF_NUMBER_TABLE();
299 a18 := JTF_DATE_TABLE();
300 a19 := JTF_NUMBER_TABLE();
301 if t.count > 0 then
302 a0.extend(t.count);
303 a1.extend(t.count);
304 a2.extend(t.count);
305 a3.extend(t.count);
306 a4.extend(t.count);
307 a5.extend(t.count);
308 a6.extend(t.count);
309 a7.extend(t.count);
310 a8.extend(t.count);
311 a9.extend(t.count);
312 a10.extend(t.count);
313 a11.extend(t.count);
314 a12.extend(t.count);
315 a13.extend(t.count);
316 a14.extend(t.count);
317 a15.extend(t.count);
318 a16.extend(t.count);
319 a17.extend(t.count);
320 a18.extend(t.count);
321 a19.extend(t.count);
322 ddindx := t.first;
323 indx := 1;
324 while true loop
325 a0(indx) := t(ddindx).item_residual_id;
326 a1(indx) := t(ddindx).orig_item_residual_id;
327 a2(indx) := t(ddindx).object_version_number;
328 a3(indx) := t(ddindx).inventory_item_id;
329 a4(indx) := t(ddindx).organization_id;
330 a5(indx) := t(ddindx).category_id;
331 a6(indx) := t(ddindx).category_set_id;
332 a7(indx) := t(ddindx).resi_category_set_id;
333 a8(indx) := t(ddindx).category_type_code;
334 a9(indx) := t(ddindx).residual_type_code;
335 a10(indx) := t(ddindx).currency_code;
336 a11(indx) := t(ddindx).sts_code;
337 a12(indx) := t(ddindx).effective_from_date;
338 a13(indx) := t(ddindx).effective_to_date;
339 a14(indx) := t(ddindx).org_id;
340 a15(indx) := t(ddindx).created_by;
341 a16(indx) := t(ddindx).creation_date;
342 a17(indx) := t(ddindx).last_updated_by;
343 a18(indx) := t(ddindx).last_update_date;
344 a19(indx) := t(ddindx).last_update_login;
345 indx := indx+1;
346 if t.last =ddindx
347 then exit;
348 end if;
349 ddindx := t.next(ddindx);
350 end loop;
351 end if;
352 end if;
353 end rosetta_table_copy_out_p3;
354
355 procedure insert_row(p_api_version NUMBER
356 , p_init_msg_list VARCHAR2
357 , x_return_status out nocopy VARCHAR2
358 , x_msg_count out nocopy NUMBER
359 , x_msg_data out nocopy VARCHAR2
360 , p5_a0 NUMBER
361 , p5_a1 NUMBER
362 , p5_a2 NUMBER
363 , p5_a3 NUMBER
364 , p5_a4 NUMBER
365 , p5_a5 NUMBER
366 , p5_a6 NUMBER
367 , p5_a7 NUMBER
368 , p5_a8 VARCHAR2
369 , p5_a9 VARCHAR2
370 , p5_a10 VARCHAR2
371 , p5_a11 VARCHAR2
372 , p5_a12 DATE
373 , p5_a13 DATE
374 , p5_a14 NUMBER
375 , p5_a15 NUMBER
376 , p5_a16 DATE
377 , p5_a17 NUMBER
378 , p5_a18 DATE
379 , p5_a19 NUMBER
380 , p6_a0 out nocopy NUMBER
381 , p6_a1 out nocopy NUMBER
382 , p6_a2 out nocopy NUMBER
383 , p6_a3 out nocopy NUMBER
384 , p6_a4 out nocopy NUMBER
385 , p6_a5 out nocopy NUMBER
386 , p6_a6 out nocopy NUMBER
387 , p6_a7 out nocopy NUMBER
388 , p6_a8 out nocopy VARCHAR2
389 , p6_a9 out nocopy VARCHAR2
390 , p6_a10 out nocopy VARCHAR2
391 , p6_a11 out nocopy VARCHAR2
392 , p6_a12 out nocopy DATE
393 , p6_a13 out nocopy DATE
394 , p6_a14 out nocopy NUMBER
395 , p6_a15 out nocopy NUMBER
396 , p6_a16 out nocopy DATE
397 , p6_a17 out nocopy NUMBER
398 , p6_a18 out nocopy DATE
399 , p6_a19 out nocopy NUMBER
400 )
401
402 as
403 ddp_irhv_rec okl_irh_pvt.okl_irhv_rec;
404 ddx_irhv_rec okl_irh_pvt.okl_irhv_rec;
405 ddindx binary_integer; indx binary_integer;
406 begin
407
408 -- copy data to the local IN or IN-OUT args, if any
409
410
411
412
413
414 ddp_irhv_rec.item_residual_id := p5_a0;
415 ddp_irhv_rec.orig_item_residual_id := p5_a1;
416 ddp_irhv_rec.object_version_number := p5_a2;
417 ddp_irhv_rec.inventory_item_id := p5_a3;
418 ddp_irhv_rec.organization_id := p5_a4;
419 ddp_irhv_rec.category_id := p5_a5;
420 ddp_irhv_rec.category_set_id := p5_a6;
421 ddp_irhv_rec.resi_category_set_id := p5_a7;
422 ddp_irhv_rec.category_type_code := p5_a8;
423 ddp_irhv_rec.residual_type_code := p5_a9;
424 ddp_irhv_rec.currency_code := p5_a10;
425 ddp_irhv_rec.sts_code := p5_a11;
426 ddp_irhv_rec.effective_from_date := p5_a12;
427 ddp_irhv_rec.effective_to_date := p5_a13;
428 ddp_irhv_rec.org_id := p5_a14;
429 ddp_irhv_rec.created_by := p5_a15;
430 ddp_irhv_rec.creation_date := p5_a16;
431 ddp_irhv_rec.last_updated_by := p5_a17;
432 ddp_irhv_rec.last_update_date := p5_a18;
433 ddp_irhv_rec.last_update_login := p5_a19;
434
435
436 -- here's the delegated call to the old PL/SQL routine
437 okl_irh_pvt.insert_row(p_api_version,
438 p_init_msg_list,
439 x_return_status,
440 x_msg_count,
441 x_msg_data,
442 ddp_irhv_rec,
443 ddx_irhv_rec);
444
445 -- copy data back from the local variables to OUT or IN-OUT args, if any
446
447
448
449
450
451
452 p6_a0 := ddx_irhv_rec.item_residual_id;
453 p6_a1 := ddx_irhv_rec.orig_item_residual_id;
454 p6_a2 := ddx_irhv_rec.object_version_number;
455 p6_a3 := ddx_irhv_rec.inventory_item_id;
456 p6_a4 := ddx_irhv_rec.organization_id;
457 p6_a5 := ddx_irhv_rec.category_id;
458 p6_a6 := ddx_irhv_rec.category_set_id;
459 p6_a7 := ddx_irhv_rec.resi_category_set_id;
460 p6_a8 := ddx_irhv_rec.category_type_code;
461 p6_a9 := ddx_irhv_rec.residual_type_code;
462 p6_a10 := ddx_irhv_rec.currency_code;
463 p6_a11 := ddx_irhv_rec.sts_code;
464 p6_a12 := ddx_irhv_rec.effective_from_date;
465 p6_a13 := ddx_irhv_rec.effective_to_date;
466 p6_a14 := ddx_irhv_rec.org_id;
467 p6_a15 := ddx_irhv_rec.created_by;
468 p6_a16 := ddx_irhv_rec.creation_date;
469 p6_a17 := ddx_irhv_rec.last_updated_by;
470 p6_a18 := ddx_irhv_rec.last_update_date;
471 p6_a19 := ddx_irhv_rec.last_update_login;
472 end;
473
474 procedure insert_row(p_api_version NUMBER
475 , p_init_msg_list VARCHAR2
476 , x_return_status out nocopy VARCHAR2
477 , x_msg_count out nocopy NUMBER
478 , x_msg_data out nocopy VARCHAR2
479 , p5_a0 JTF_NUMBER_TABLE
480 , p5_a1 JTF_NUMBER_TABLE
481 , p5_a2 JTF_NUMBER_TABLE
482 , p5_a3 JTF_NUMBER_TABLE
483 , p5_a4 JTF_NUMBER_TABLE
484 , p5_a5 JTF_NUMBER_TABLE
485 , p5_a6 JTF_NUMBER_TABLE
486 , p5_a7 JTF_NUMBER_TABLE
487 , p5_a8 JTF_VARCHAR2_TABLE_100
488 , p5_a9 JTF_VARCHAR2_TABLE_100
489 , p5_a10 JTF_VARCHAR2_TABLE_100
490 , p5_a11 JTF_VARCHAR2_TABLE_100
491 , p5_a12 JTF_DATE_TABLE
492 , p5_a13 JTF_DATE_TABLE
493 , p5_a14 JTF_NUMBER_TABLE
494 , p5_a15 JTF_NUMBER_TABLE
495 , p5_a16 JTF_DATE_TABLE
496 , p5_a17 JTF_NUMBER_TABLE
497 , p5_a18 JTF_DATE_TABLE
498 , p5_a19 JTF_NUMBER_TABLE
499 , p6_a0 out nocopy JTF_NUMBER_TABLE
500 , p6_a1 out nocopy JTF_NUMBER_TABLE
501 , p6_a2 out nocopy JTF_NUMBER_TABLE
502 , p6_a3 out nocopy JTF_NUMBER_TABLE
503 , p6_a4 out nocopy JTF_NUMBER_TABLE
504 , p6_a5 out nocopy JTF_NUMBER_TABLE
505 , p6_a6 out nocopy JTF_NUMBER_TABLE
506 , p6_a7 out nocopy JTF_NUMBER_TABLE
507 , p6_a8 out nocopy JTF_VARCHAR2_TABLE_100
508 , p6_a9 out nocopy JTF_VARCHAR2_TABLE_100
509 , p6_a10 out nocopy JTF_VARCHAR2_TABLE_100
510 , p6_a11 out nocopy JTF_VARCHAR2_TABLE_100
511 , p6_a12 out nocopy JTF_DATE_TABLE
512 , p6_a13 out nocopy JTF_DATE_TABLE
513 , p6_a14 out nocopy JTF_NUMBER_TABLE
514 , p6_a15 out nocopy JTF_NUMBER_TABLE
515 , p6_a16 out nocopy JTF_DATE_TABLE
516 , p6_a17 out nocopy JTF_NUMBER_TABLE
517 , p6_a18 out nocopy JTF_DATE_TABLE
518 , p6_a19 out nocopy JTF_NUMBER_TABLE
519 )
520
521 as
522 ddp_irhv_tbl okl_irh_pvt.okl_irhv_tbl;
523 ddx_irhv_tbl okl_irh_pvt.okl_irhv_tbl;
524 ddindx binary_integer; indx binary_integer;
525 begin
526
527 -- copy data to the local IN or IN-OUT args, if any
528
529
530
531
532
533 okl_irh_pvt_w.rosetta_table_copy_in_p1(ddp_irhv_tbl, p5_a0
534 , p5_a1
535 , p5_a2
536 , p5_a3
537 , p5_a4
538 , p5_a5
539 , p5_a6
540 , p5_a7
541 , p5_a8
542 , p5_a9
543 , p5_a10
544 , p5_a11
545 , p5_a12
546 , p5_a13
547 , p5_a14
548 , p5_a15
549 , p5_a16
550 , p5_a17
551 , p5_a18
552 , p5_a19
553 );
554
555
556 -- here's the delegated call to the old PL/SQL routine
557 okl_irh_pvt.insert_row(p_api_version,
558 p_init_msg_list,
559 x_return_status,
560 x_msg_count,
561 x_msg_data,
562 ddp_irhv_tbl,
563 ddx_irhv_tbl);
564
565 -- copy data back from the local variables to OUT or IN-OUT args, if any
566
567
568
569
570
571
572 okl_irh_pvt_w.rosetta_table_copy_out_p1(ddx_irhv_tbl, p6_a0
573 , p6_a1
574 , p6_a2
575 , p6_a3
576 , p6_a4
577 , p6_a5
578 , p6_a6
579 , p6_a7
580 , p6_a8
581 , p6_a9
582 , p6_a10
583 , p6_a11
584 , p6_a12
585 , p6_a13
586 , p6_a14
587 , p6_a15
588 , p6_a16
589 , p6_a17
590 , p6_a18
591 , p6_a19
592 );
593 end;
594
595 procedure update_row(p_api_version NUMBER
596 , p_init_msg_list VARCHAR2
597 , x_return_status out nocopy VARCHAR2
598 , x_msg_count out nocopy NUMBER
599 , x_msg_data out nocopy VARCHAR2
600 , p5_a0 NUMBER
601 , p5_a1 NUMBER
602 , p5_a2 NUMBER
603 , p5_a3 NUMBER
604 , p5_a4 NUMBER
605 , p5_a5 NUMBER
606 , p5_a6 NUMBER
607 , p5_a7 NUMBER
608 , p5_a8 VARCHAR2
609 , p5_a9 VARCHAR2
610 , p5_a10 VARCHAR2
611 , p5_a11 VARCHAR2
612 , p5_a12 DATE
613 , p5_a13 DATE
614 , p5_a14 NUMBER
615 , p5_a15 NUMBER
616 , p5_a16 DATE
617 , p5_a17 NUMBER
618 , p5_a18 DATE
619 , p5_a19 NUMBER
620 , p6_a0 out nocopy NUMBER
621 , p6_a1 out nocopy NUMBER
622 , p6_a2 out nocopy NUMBER
623 , p6_a3 out nocopy NUMBER
624 , p6_a4 out nocopy NUMBER
625 , p6_a5 out nocopy NUMBER
626 , p6_a6 out nocopy NUMBER
627 , p6_a7 out nocopy NUMBER
628 , p6_a8 out nocopy VARCHAR2
629 , p6_a9 out nocopy VARCHAR2
630 , p6_a10 out nocopy VARCHAR2
631 , p6_a11 out nocopy VARCHAR2
632 , p6_a12 out nocopy DATE
633 , p6_a13 out nocopy DATE
634 , p6_a14 out nocopy NUMBER
635 , p6_a15 out nocopy NUMBER
636 , p6_a16 out nocopy DATE
637 , p6_a17 out nocopy NUMBER
638 , p6_a18 out nocopy DATE
639 , p6_a19 out nocopy NUMBER
640 )
641
642 as
643 ddp_irhv_rec okl_irh_pvt.okl_irhv_rec;
644 ddx_irhv_rec okl_irh_pvt.okl_irhv_rec;
645 ddindx binary_integer; indx binary_integer;
646 begin
647
648 -- copy data to the local IN or IN-OUT args, if any
649
650
651
652
653
654 ddp_irhv_rec.item_residual_id := p5_a0;
655 ddp_irhv_rec.orig_item_residual_id := p5_a1;
656 ddp_irhv_rec.object_version_number := p5_a2;
657 ddp_irhv_rec.inventory_item_id := p5_a3;
658 ddp_irhv_rec.organization_id := p5_a4;
659 ddp_irhv_rec.category_id := p5_a5;
660 ddp_irhv_rec.category_set_id := p5_a6;
661 ddp_irhv_rec.resi_category_set_id := p5_a7;
662 ddp_irhv_rec.category_type_code := p5_a8;
663 ddp_irhv_rec.residual_type_code := p5_a9;
664 ddp_irhv_rec.currency_code := p5_a10;
665 ddp_irhv_rec.sts_code := p5_a11;
666 ddp_irhv_rec.effective_from_date := p5_a12;
667 ddp_irhv_rec.effective_to_date := p5_a13;
668 ddp_irhv_rec.org_id := p5_a14;
669 ddp_irhv_rec.created_by := p5_a15;
670 ddp_irhv_rec.creation_date := p5_a16;
671 ddp_irhv_rec.last_updated_by := p5_a17;
672 ddp_irhv_rec.last_update_date := p5_a18;
673 ddp_irhv_rec.last_update_login := p5_a19;
674
675
676 -- here's the delegated call to the old PL/SQL routine
677 okl_irh_pvt.update_row(p_api_version,
678 p_init_msg_list,
679 x_return_status,
680 x_msg_count,
681 x_msg_data,
682 ddp_irhv_rec,
683 ddx_irhv_rec);
684
685 -- copy data back from the local variables to OUT or IN-OUT args, if any
686
687
688
689
690
691
692 p6_a0 := ddx_irhv_rec.item_residual_id;
693 p6_a1 := ddx_irhv_rec.orig_item_residual_id;
694 p6_a2 := ddx_irhv_rec.object_version_number;
695 p6_a3 := ddx_irhv_rec.inventory_item_id;
696 p6_a4 := ddx_irhv_rec.organization_id;
697 p6_a5 := ddx_irhv_rec.category_id;
698 p6_a6 := ddx_irhv_rec.category_set_id;
699 p6_a7 := ddx_irhv_rec.resi_category_set_id;
700 p6_a8 := ddx_irhv_rec.category_type_code;
701 p6_a9 := ddx_irhv_rec.residual_type_code;
702 p6_a10 := ddx_irhv_rec.currency_code;
703 p6_a11 := ddx_irhv_rec.sts_code;
704 p6_a12 := ddx_irhv_rec.effective_from_date;
705 p6_a13 := ddx_irhv_rec.effective_to_date;
706 p6_a14 := ddx_irhv_rec.org_id;
707 p6_a15 := ddx_irhv_rec.created_by;
708 p6_a16 := ddx_irhv_rec.creation_date;
709 p6_a17 := ddx_irhv_rec.last_updated_by;
710 p6_a18 := ddx_irhv_rec.last_update_date;
711 p6_a19 := ddx_irhv_rec.last_update_login;
712 end;
713
714 procedure update_row(p_api_version NUMBER
715 , p_init_msg_list VARCHAR2
716 , x_return_status out nocopy VARCHAR2
717 , x_msg_count out nocopy NUMBER
718 , x_msg_data out nocopy VARCHAR2
719 , p5_a0 JTF_NUMBER_TABLE
720 , p5_a1 JTF_NUMBER_TABLE
721 , p5_a2 JTF_NUMBER_TABLE
722 , p5_a3 JTF_NUMBER_TABLE
723 , p5_a4 JTF_NUMBER_TABLE
724 , p5_a5 JTF_NUMBER_TABLE
725 , p5_a6 JTF_NUMBER_TABLE
726 , p5_a7 JTF_NUMBER_TABLE
727 , p5_a8 JTF_VARCHAR2_TABLE_100
728 , p5_a9 JTF_VARCHAR2_TABLE_100
729 , p5_a10 JTF_VARCHAR2_TABLE_100
730 , p5_a11 JTF_VARCHAR2_TABLE_100
731 , p5_a12 JTF_DATE_TABLE
732 , p5_a13 JTF_DATE_TABLE
733 , p5_a14 JTF_NUMBER_TABLE
734 , p5_a15 JTF_NUMBER_TABLE
735 , p5_a16 JTF_DATE_TABLE
736 , p5_a17 JTF_NUMBER_TABLE
737 , p5_a18 JTF_DATE_TABLE
738 , p5_a19 JTF_NUMBER_TABLE
739 , p6_a0 out nocopy JTF_NUMBER_TABLE
740 , p6_a1 out nocopy JTF_NUMBER_TABLE
741 , p6_a2 out nocopy JTF_NUMBER_TABLE
742 , p6_a3 out nocopy JTF_NUMBER_TABLE
743 , p6_a4 out nocopy JTF_NUMBER_TABLE
744 , p6_a5 out nocopy JTF_NUMBER_TABLE
745 , p6_a6 out nocopy JTF_NUMBER_TABLE
746 , p6_a7 out nocopy JTF_NUMBER_TABLE
747 , p6_a8 out nocopy JTF_VARCHAR2_TABLE_100
748 , p6_a9 out nocopy JTF_VARCHAR2_TABLE_100
749 , p6_a10 out nocopy JTF_VARCHAR2_TABLE_100
750 , p6_a11 out nocopy JTF_VARCHAR2_TABLE_100
751 , p6_a12 out nocopy JTF_DATE_TABLE
752 , p6_a13 out nocopy JTF_DATE_TABLE
753 , p6_a14 out nocopy JTF_NUMBER_TABLE
754 , p6_a15 out nocopy JTF_NUMBER_TABLE
755 , p6_a16 out nocopy JTF_DATE_TABLE
756 , p6_a17 out nocopy JTF_NUMBER_TABLE
757 , p6_a18 out nocopy JTF_DATE_TABLE
758 , p6_a19 out nocopy JTF_NUMBER_TABLE
759 )
760
761 as
762 ddp_irhv_tbl okl_irh_pvt.okl_irhv_tbl;
763 ddx_irhv_tbl okl_irh_pvt.okl_irhv_tbl;
764 ddindx binary_integer; indx binary_integer;
765 begin
766
767 -- copy data to the local IN or IN-OUT args, if any
768
769
770
771
772
773 okl_irh_pvt_w.rosetta_table_copy_in_p1(ddp_irhv_tbl, p5_a0
774 , p5_a1
775 , p5_a2
776 , p5_a3
777 , p5_a4
778 , p5_a5
779 , p5_a6
780 , p5_a7
781 , p5_a8
782 , p5_a9
783 , p5_a10
784 , p5_a11
785 , p5_a12
786 , p5_a13
787 , p5_a14
788 , p5_a15
789 , p5_a16
790 , p5_a17
791 , p5_a18
792 , p5_a19
793 );
794
795
796 -- here's the delegated call to the old PL/SQL routine
797 okl_irh_pvt.update_row(p_api_version,
798 p_init_msg_list,
799 x_return_status,
800 x_msg_count,
801 x_msg_data,
802 ddp_irhv_tbl,
803 ddx_irhv_tbl);
804
805 -- copy data back from the local variables to OUT or IN-OUT args, if any
806
807
808
809
810
811
812 okl_irh_pvt_w.rosetta_table_copy_out_p1(ddx_irhv_tbl, p6_a0
813 , p6_a1
814 , p6_a2
815 , p6_a3
816 , p6_a4
817 , p6_a5
818 , p6_a6
819 , p6_a7
820 , p6_a8
821 , p6_a9
822 , p6_a10
823 , p6_a11
824 , p6_a12
825 , p6_a13
826 , p6_a14
827 , p6_a15
828 , p6_a16
829 , p6_a17
830 , p6_a18
831 , p6_a19
832 );
833 end;
834
835 procedure delete_row(p_api_version NUMBER
836 , p_init_msg_list VARCHAR2
837 , x_return_status out nocopy VARCHAR2
838 , x_msg_count out nocopy NUMBER
839 , x_msg_data out nocopy VARCHAR2
840 , p5_a0 NUMBER
841 , p5_a1 NUMBER
842 , p5_a2 NUMBER
843 , p5_a3 NUMBER
844 , p5_a4 NUMBER
845 , p5_a5 NUMBER
846 , p5_a6 NUMBER
847 , p5_a7 NUMBER
848 , p5_a8 VARCHAR2
849 , p5_a9 VARCHAR2
850 , p5_a10 VARCHAR2
851 , p5_a11 VARCHAR2
852 , p5_a12 DATE
853 , p5_a13 DATE
854 , p5_a14 NUMBER
855 , p5_a15 NUMBER
856 , p5_a16 DATE
857 , p5_a17 NUMBER
858 , p5_a18 DATE
859 , p5_a19 NUMBER
860 )
861
862 as
863 ddp_irhv_rec okl_irh_pvt.okl_irhv_rec;
864 ddindx binary_integer; indx binary_integer;
865 begin
866
867 -- copy data to the local IN or IN-OUT args, if any
868
869
870
871
872
873 ddp_irhv_rec.item_residual_id := p5_a0;
874 ddp_irhv_rec.orig_item_residual_id := p5_a1;
875 ddp_irhv_rec.object_version_number := p5_a2;
876 ddp_irhv_rec.inventory_item_id := p5_a3;
877 ddp_irhv_rec.organization_id := p5_a4;
878 ddp_irhv_rec.category_id := p5_a5;
879 ddp_irhv_rec.category_set_id := p5_a6;
880 ddp_irhv_rec.resi_category_set_id := p5_a7;
881 ddp_irhv_rec.category_type_code := p5_a8;
882 ddp_irhv_rec.residual_type_code := p5_a9;
883 ddp_irhv_rec.currency_code := p5_a10;
884 ddp_irhv_rec.sts_code := p5_a11;
885 ddp_irhv_rec.effective_from_date := p5_a12;
886 ddp_irhv_rec.effective_to_date := p5_a13;
887 ddp_irhv_rec.org_id := p5_a14;
888 ddp_irhv_rec.created_by := p5_a15;
889 ddp_irhv_rec.creation_date := p5_a16;
890 ddp_irhv_rec.last_updated_by := p5_a17;
891 ddp_irhv_rec.last_update_date := p5_a18;
892 ddp_irhv_rec.last_update_login := p5_a19;
893
894 -- here's the delegated call to the old PL/SQL routine
895 okl_irh_pvt.delete_row(p_api_version,
896 p_init_msg_list,
897 x_return_status,
898 x_msg_count,
899 x_msg_data,
900 ddp_irhv_rec);
901
902 -- copy data back from the local variables to OUT or IN-OUT args, if any
903
904
905
906
907
908 end;
909
910 procedure delete_row(p_api_version NUMBER
911 , p_init_msg_list VARCHAR2
912 , x_return_status out nocopy VARCHAR2
913 , x_msg_count out nocopy NUMBER
914 , x_msg_data out nocopy VARCHAR2
915 , p5_a0 JTF_NUMBER_TABLE
916 , p5_a1 JTF_NUMBER_TABLE
917 , p5_a2 JTF_NUMBER_TABLE
918 , p5_a3 JTF_NUMBER_TABLE
919 , p5_a4 JTF_NUMBER_TABLE
920 , p5_a5 JTF_NUMBER_TABLE
921 , p5_a6 JTF_NUMBER_TABLE
922 , p5_a7 JTF_NUMBER_TABLE
923 , p5_a8 JTF_VARCHAR2_TABLE_100
924 , p5_a9 JTF_VARCHAR2_TABLE_100
925 , p5_a10 JTF_VARCHAR2_TABLE_100
926 , p5_a11 JTF_VARCHAR2_TABLE_100
927 , p5_a12 JTF_DATE_TABLE
928 , p5_a13 JTF_DATE_TABLE
929 , p5_a14 JTF_NUMBER_TABLE
930 , p5_a15 JTF_NUMBER_TABLE
931 , p5_a16 JTF_DATE_TABLE
932 , p5_a17 JTF_NUMBER_TABLE
933 , p5_a18 JTF_DATE_TABLE
934 , p5_a19 JTF_NUMBER_TABLE
935 )
936
937 as
938 ddp_irhv_tbl okl_irh_pvt.okl_irhv_tbl;
939 ddindx binary_integer; indx binary_integer;
940 begin
941
942 -- copy data to the local IN or IN-OUT args, if any
943
944
945
946
947
948 okl_irh_pvt_w.rosetta_table_copy_in_p1(ddp_irhv_tbl, p5_a0
949 , p5_a1
950 , p5_a2
951 , p5_a3
952 , p5_a4
953 , p5_a5
954 , p5_a6
955 , p5_a7
956 , p5_a8
957 , p5_a9
958 , p5_a10
959 , p5_a11
960 , p5_a12
961 , p5_a13
962 , p5_a14
963 , p5_a15
964 , p5_a16
965 , p5_a17
966 , p5_a18
967 , p5_a19
968 );
969
970 -- here's the delegated call to the old PL/SQL routine
971 okl_irh_pvt.delete_row(p_api_version,
972 p_init_msg_list,
973 x_return_status,
974 x_msg_count,
975 x_msg_data,
976 ddp_irhv_tbl);
977
978 -- copy data back from the local variables to OUT or IN-OUT args, if any
979
980
981
982
983
984 end;
985
986 end okl_irh_pvt_w;