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