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