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