[Home] [Help]
PACKAGE BODY: APPS.JTF_PERZ_LF_PUB_W
Source
1 package body jtf_perz_lf_pub_w as
2 /* $Header: jtfzwlfb.pls 120.2 2005/11/02 23:01:03 skothe ship $ */
3 rosetta_g_mistake_date date := to_date('01/01/+4713', 'MM/DD/SYYYY');
4 rosetta_g_miss_date date := to_date('01/01/-4712', 'MM/DD/SYYYY');
5
6 function rosetta_g_miss_num_map(n number) return number as
7 a number := fnd_api.g_miss_num;
8 b number := 0-1962.0724;
9 begin
10 if n=a then return b; end if;
11 if n=b then return a; end if;
12 return n;
13 end;
14
15 -- this is to workaround the JDBC bug regarding IN DATE of value GMiss
16 function rosetta_g_miss_date_in_map(d date) return date as
17 begin
18 if d = rosetta_g_mistake_date then return fnd_api.g_miss_date; end if;
19 return d;
20 end;
21
22 procedure rosetta_table_copy_in_p1(t OUT NOCOPY /* file.sql.39 change */ jtf_perz_lf_pub.attrib_rec_tbl_type, a0 JTF_NUMBER_TABLE
23 , a1 JTF_VARCHAR2_TABLE_100
24 , a2 JTF_VARCHAR2_TABLE_100
25 ) as
26 ddindx binary_integer; indx binary_integer;
27 begin
28 if a0 is not null and a0.count > 0 then
29 if a0.count > 0 then
30 indx := a0.first;
31 ddindx := 1;
32 while true loop
33 t(ddindx).attribute_id := a0(indx);
34 t(ddindx).attribute_name := a1(indx);
35 t(ddindx).attribute_type := a2(indx);
36 ddindx := ddindx+1;
37 if a0.last =indx
38 then exit;
39 end if;
40 indx := a0.next(indx);
41 end loop;
42 end if;
43 end if;
44 end rosetta_table_copy_in_p1;
45 procedure rosetta_table_copy_out_p1(t jtf_perz_lf_pub.attrib_rec_tbl_type, a0 OUT NOCOPY /* file.sql.39 change */ JTF_NUMBER_TABLE
46 , a1 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_100
47 , a2 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_100
48 ) as
49 ddindx binary_integer; indx binary_integer;
50 begin
51 if t is null or t.count = 0 then
52 a0 := JTF_NUMBER_TABLE();
53 a1 := JTF_VARCHAR2_TABLE_100();
54 a2 := JTF_VARCHAR2_TABLE_100();
55 else
56 a0 := JTF_NUMBER_TABLE();
57 a1 := JTF_VARCHAR2_TABLE_100();
58 a2 := JTF_VARCHAR2_TABLE_100();
59 if t.count > 0 then
60 a0.extend(t.count);
61 a1.extend(t.count);
62 a2.extend(t.count);
63 ddindx := t.first;
64 indx := 1;
65 while true loop
66 a0(indx) := t(ddindx).attribute_id;
67 a1(indx) := t(ddindx).attribute_name;
68 a2(indx) := t(ddindx).attribute_type;
69 indx := indx+1;
70 if t.last =ddindx
71 then exit;
72 end if;
73 ddindx := t.next(ddindx);
74 end loop;
75 end if;
76 end if;
77 end rosetta_table_copy_out_p1;
78
79 procedure rosetta_table_copy_in_p4(t OUT NOCOPY /* file.sql.39 change */ jtf_perz_lf_pub.attrib_value_tbl_type, a0 JTF_NUMBER_TABLE
80 , a1 JTF_VARCHAR2_TABLE_100
81 , a2 JTF_VARCHAR2_TABLE_100
82 , a3 JTF_VARCHAR2_TABLE_100
83 , a4 JTF_NUMBER_TABLE
84 ) as
85 ddindx binary_integer; indx binary_integer;
86 begin
87 if a0 is not null and a0.count > 0 then
88 if a0.count > 0 then
89 indx := a0.first;
90 ddindx := 1;
91 while true loop
92 t(ddindx).attribute_id := a0(indx);
93 t(ddindx).attribute_name := a1(indx);
94 t(ddindx).attribute_type := a2(indx);
95 t(ddindx).attribute_value := a3(indx);
96 t(ddindx).priority := a4(indx);
97 ddindx := ddindx+1;
98 if a0.last =indx
99 then exit;
100 end if;
101 indx := a0.next(indx);
102 end loop;
103 end if;
104 end if;
105 end rosetta_table_copy_in_p4;
106 procedure rosetta_table_copy_out_p4(t jtf_perz_lf_pub.attrib_value_tbl_type, a0 OUT NOCOPY /* file.sql.39 change */ JTF_NUMBER_TABLE
107 , a1 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_100
108 , a2 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_100
109 , a3 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_100
110 , a4 OUT NOCOPY /* file.sql.39 change */ JTF_NUMBER_TABLE
111 ) as
112 ddindx binary_integer; indx binary_integer;
113 begin
114 if t is null or t.count = 0 then
115 a0 := JTF_NUMBER_TABLE();
116 a1 := JTF_VARCHAR2_TABLE_100();
117 a2 := JTF_VARCHAR2_TABLE_100();
118 a3 := JTF_VARCHAR2_TABLE_100();
119 a4 := JTF_NUMBER_TABLE();
120 else
121 a0 := JTF_NUMBER_TABLE();
122 a1 := JTF_VARCHAR2_TABLE_100();
123 a2 := JTF_VARCHAR2_TABLE_100();
124 a3 := JTF_VARCHAR2_TABLE_100();
125 a4 := JTF_NUMBER_TABLE();
126 if t.count > 0 then
127 a0.extend(t.count);
128 a1.extend(t.count);
129 a2.extend(t.count);
130 a3.extend(t.count);
131 a4.extend(t.count);
132 ddindx := t.first;
133 indx := 1;
134 while true loop
135 a0(indx) := t(ddindx).attribute_id;
136 a1(indx) := t(ddindx).attribute_name;
137 a2(indx) := t(ddindx).attribute_type;
138 a3(indx) := t(ddindx).attribute_value;
139 a4(indx) := t(ddindx).priority;
140 indx := indx+1;
141 if t.last =ddindx
142 then exit;
143 end if;
144 ddindx := t.next(ddindx);
145 end loop;
146 end if;
147 end if;
148 end rosetta_table_copy_out_p4;
149
150 procedure rosetta_table_copy_in_p7(t OUT NOCOPY /* file.sql.39 change */ jtf_perz_lf_pub.lf_object_out_tbl_type, a0 JTF_NUMBER_TABLE
151 , a1 JTF_NUMBER_TABLE
152 , a2 JTF_NUMBER_TABLE
153 , a3 JTF_VARCHAR2_TABLE_100
154 , a4 JTF_VARCHAR2_TABLE_300
155 , a5 JTF_NUMBER_TABLE
156 , a6 JTF_VARCHAR2_TABLE_100
157 , a7 JTF_NUMBER_TABLE
158 , a8 JTF_VARCHAR2_TABLE_100
159 , a9 JTF_VARCHAR2_TABLE_100
160 , a10 JTF_VARCHAR2_TABLE_100
161 , a11 JTF_VARCHAR2_TABLE_100
162 , a12 JTF_NUMBER_TABLE
163 ) as
164 ddindx binary_integer; indx binary_integer;
165 begin
166 if a0 is not null and a0.count > 0 then
167 if a0.count > 0 then
168 indx := a0.first;
169 ddindx := 1;
170 while true loop
171 t(ddindx).parent_id := a0(indx);
172 t(ddindx).object_id := a1(indx);
173 t(ddindx).application_id := a2(indx);
174 t(ddindx).object_name := a3(indx);
175 t(ddindx).object_description := a4(indx);
176 t(ddindx).object_type_id := a5(indx);
177 t(ddindx).object_type := a6(indx);
178 t(ddindx).attribute_id := a7(indx);
179 t(ddindx).attribute_name := a8(indx);
180 t(ddindx).attribute_type := a9(indx);
181 t(ddindx).attribute_value := a10(indx);
182 t(ddindx).active_flag := a11(indx);
183 t(ddindx).priority := a12(indx);
184 ddindx := ddindx+1;
185 if a0.last =indx
186 then exit;
187 end if;
188 indx := a0.next(indx);
189 end loop;
190 end if;
191 end if;
192 end rosetta_table_copy_in_p7;
193 procedure rosetta_table_copy_out_p7(t jtf_perz_lf_pub.lf_object_out_tbl_type, a0 OUT NOCOPY /* file.sql.39 change */ JTF_NUMBER_TABLE
194 , a1 OUT NOCOPY /* file.sql.39 change */ JTF_NUMBER_TABLE
195 , a2 OUT NOCOPY /* file.sql.39 change */ JTF_NUMBER_TABLE
196 , a3 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_100
197 , a4 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_300
198 , a5 OUT NOCOPY /* file.sql.39 change */ JTF_NUMBER_TABLE
199 , a6 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_100
200 , a7 OUT NOCOPY /* file.sql.39 change */ JTF_NUMBER_TABLE
201 , a8 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_100
202 , a9 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_100
203 , a10 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_100
204 , a11 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_100
205 , a12 OUT NOCOPY /* file.sql.39 change */ JTF_NUMBER_TABLE
206 ) as
207 ddindx binary_integer; indx binary_integer;
208 begin
209 if t is null or t.count = 0 then
210 a0 := JTF_NUMBER_TABLE();
211 a1 := JTF_NUMBER_TABLE();
212 a2 := JTF_NUMBER_TABLE();
213 a3 := JTF_VARCHAR2_TABLE_100();
214 a4 := JTF_VARCHAR2_TABLE_300();
215 a5 := JTF_NUMBER_TABLE();
216 a6 := JTF_VARCHAR2_TABLE_100();
217 a7 := JTF_NUMBER_TABLE();
218 a8 := JTF_VARCHAR2_TABLE_100();
219 a9 := JTF_VARCHAR2_TABLE_100();
220 a10 := JTF_VARCHAR2_TABLE_100();
221 a11 := JTF_VARCHAR2_TABLE_100();
222 a12 := JTF_NUMBER_TABLE();
223 else
224 a0 := JTF_NUMBER_TABLE();
225 a1 := JTF_NUMBER_TABLE();
226 a2 := JTF_NUMBER_TABLE();
227 a3 := JTF_VARCHAR2_TABLE_100();
228 a4 := JTF_VARCHAR2_TABLE_300();
229 a5 := JTF_NUMBER_TABLE();
230 a6 := JTF_VARCHAR2_TABLE_100();
231 a7 := JTF_NUMBER_TABLE();
232 a8 := JTF_VARCHAR2_TABLE_100();
233 a9 := JTF_VARCHAR2_TABLE_100();
234 a10 := JTF_VARCHAR2_TABLE_100();
235 a11 := JTF_VARCHAR2_TABLE_100();
236 a12 := JTF_NUMBER_TABLE();
237 if t.count > 0 then
238 a0.extend(t.count);
239 a1.extend(t.count);
240 a2.extend(t.count);
241 a3.extend(t.count);
242 a4.extend(t.count);
243 a5.extend(t.count);
244 a6.extend(t.count);
245 a7.extend(t.count);
246 a8.extend(t.count);
247 a9.extend(t.count);
248 a10.extend(t.count);
249 a11.extend(t.count);
250 a12.extend(t.count);
251 ddindx := t.first;
252 indx := 1;
253 while true loop
254 a0(indx) := t(ddindx).parent_id;
255 a1(indx) := t(ddindx).object_id;
256 a2(indx) := t(ddindx).application_id;
257 a3(indx) := t(ddindx).object_name;
258 a4(indx) := t(ddindx).object_description;
259 a5(indx) := t(ddindx).object_type_id;
260 a6(indx) := t(ddindx).object_type;
261 a7(indx) := t(ddindx).attribute_id;
262 a8(indx) := t(ddindx).attribute_name;
263 a9(indx) := t(ddindx).attribute_type;
264 a10(indx) := t(ddindx).attribute_value;
265 a11(indx) := t(ddindx).active_flag;
266 a12(indx) := t(ddindx).priority;
267 indx := indx+1;
268 if t.last =ddindx
269 then exit;
270 end if;
271 ddindx := t.next(ddindx);
272 end loop;
273 end if;
274 end if;
275 end rosetta_table_copy_out_p7;
276
277 procedure save_lf_object(p_api_version_number NUMBER
278 , p_init_msg_list VARCHAR2
279 , p_commit VARCHAR2
280 , p_profile_id NUMBER
281 , p_profile_name VARCHAR2
282 , p_profile_type VARCHAR2
283 , p6_a0 JTF_NUMBER_TABLE
284 , p6_a1 JTF_NUMBER_TABLE
285 , p6_a2 JTF_VARCHAR2_TABLE_100
286 , p6_a3 JTF_VARCHAR2_TABLE_100
287 , p6_a4 JTF_VARCHAR2_TABLE_100
288 , p_application_id NUMBER
289 , p_parent_id NUMBER
290 , p_object_type_id NUMBER
291 , p_object_type VARCHAR2
292 , p_object_id NUMBER
293 , p_object_name VARCHAR2
294 , p_object_description VARCHAR2
295 , p_active_flag VARCHAR2
296 , p15_a0 JTF_NUMBER_TABLE
297 , p15_a1 JTF_VARCHAR2_TABLE_100
298 , p15_a2 JTF_VARCHAR2_TABLE_100
299 , p15_a3 JTF_VARCHAR2_TABLE_100
300 , p15_a4 JTF_NUMBER_TABLE
301 , x_object_id OUT NOCOPY /* file.sql.39 change */ NUMBER
302 , x_return_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2
303 , x_msg_count OUT NOCOPY /* file.sql.39 change */ NUMBER
304 , x_msg_data OUT NOCOPY /* file.sql.39 change */ VARCHAR2
305 )
306 as
307 ddp_profile_attrib_tbl jtf_perz_profile_pub.profile_attrib_tbl_type;
308 ddp_attrib_value_tbl jtf_perz_lf_pub.attrib_value_tbl_type;
309 ddindx binary_integer; indx binary_integer;
310 begin
311
312 -- copy data to the local IN or IN-OUT args, if any
313
314
315
316
317
318
319 jtf_perz_profile_pub_w.rosetta_table_copy_in_p1(ddp_profile_attrib_tbl, p6_a0
320 , p6_a1
321 , p6_a2
322 , p6_a3
323 , p6_a4
324 );
325
326
327
328
329
330
331
332
333
334 jtf_perz_lf_pub_w.rosetta_table_copy_in_p4(ddp_attrib_value_tbl, p15_a0
335 , p15_a1
336 , p15_a2
337 , p15_a3
338 , p15_a4
339 );
340
341
342
343
344
345 -- here's the delegated call to the old PL/SQL routine
346 jtf_perz_lf_pub.save_lf_object(p_api_version_number,
347 p_init_msg_list,
348 p_commit,
349 p_profile_id,
350 p_profile_name,
351 p_profile_type,
352 ddp_profile_attrib_tbl,
353 p_application_id,
354 p_parent_id,
355 p_object_type_id,
356 p_object_type,
357 p_object_id,
358 p_object_name,
359 p_object_description,
360 p_active_flag,
361 ddp_attrib_value_tbl,
362 x_object_id,
363 x_return_status,
364 x_msg_count,
365 x_msg_data);
366
367 -- copy data back from the local OUT or IN-OUT args, if any
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387 end;
388
389 procedure save_lf_object_type(p_api_version_number NUMBER
390 , p_init_msg_list VARCHAR2
391 , p_commit VARCHAR2
392 , p_object_type_id NUMBER
393 , p_object_type VARCHAR2
394 , p_object_type_desc VARCHAR2
395 , p6_a0 JTF_NUMBER_TABLE
396 , p6_a1 JTF_VARCHAR2_TABLE_100
397 , p6_a2 JTF_VARCHAR2_TABLE_100
398 , x_object_type_id OUT NOCOPY /* file.sql.39 change */ NUMBER
399 , x_return_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2
400 , x_msg_count OUT NOCOPY /* file.sql.39 change */ NUMBER
401 , x_msg_data OUT NOCOPY /* file.sql.39 change */ VARCHAR2
402 )
403 as
404 ddp_attrib_rec_tbl jtf_perz_lf_pub.attrib_rec_tbl_type;
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
415 jtf_perz_lf_pub_w.rosetta_table_copy_in_p1(ddp_attrib_rec_tbl, p6_a0
416 , p6_a1
417 , p6_a2
418 );
419
420
421
422
423
424 -- here's the delegated call to the old PL/SQL routine
425 jtf_perz_lf_pub.save_lf_object_type(p_api_version_number,
426 p_init_msg_list,
427 p_commit,
428 p_object_type_id,
429 p_object_type,
430 p_object_type_desc,
431 ddp_attrib_rec_tbl,
432 x_object_type_id,
433 x_return_status,
434 x_msg_count,
435 x_msg_data);
436
437 -- copy data back from the local OUT or IN-OUT args, if any
438
439
440
441
442
443
444
445
446
447
448 end;
449
450 procedure create_lf_object(p_api_version_number NUMBER
451 , p_init_msg_list VARCHAR2
452 , p_commit VARCHAR2
453 , p_profile_id NUMBER
454 , p_profile_name VARCHAR2
455 , p_application_id NUMBER
456 , p_parent_id NUMBER
457 , p_object_id NUMBER
458 , p_object_name VARCHAR2
459 , p_object_type_id NUMBER
460 , p_object_type VARCHAR2
461 , p11_a0 JTF_NUMBER_TABLE
462 , p11_a1 JTF_VARCHAR2_TABLE_100
463 , p11_a2 JTF_VARCHAR2_TABLE_100
464 , p11_a3 JTF_VARCHAR2_TABLE_100
465 , p11_a4 JTF_NUMBER_TABLE
466 , x_object_id OUT NOCOPY /* file.sql.39 change */ NUMBER
467 , x_return_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2
468 , x_msg_count OUT NOCOPY /* file.sql.39 change */ NUMBER
469 , x_msg_data OUT NOCOPY /* file.sql.39 change */ VARCHAR2
470 )
471 as
472 ddp_attrib_value_tbl jtf_perz_lf_pub.attrib_value_tbl_type;
473 ddindx binary_integer; indx binary_integer;
474 begin
475
476 -- copy data to the local IN or IN-OUT args, if any
477
478
479
480
481
482
483
484
485
486
487
488 jtf_perz_lf_pub_w.rosetta_table_copy_in_p4(ddp_attrib_value_tbl, p11_a0
489 , p11_a1
490 , p11_a2
491 , p11_a3
492 , p11_a4
493 );
494
495
496
497
498
499 -- here's the delegated call to the old PL/SQL routine
500 jtf_perz_lf_pub.create_lf_object(p_api_version_number,
501 p_init_msg_list,
502 p_commit,
503 p_profile_id,
504 p_profile_name,
505 p_application_id,
506 p_parent_id,
507 p_object_id,
508 p_object_name,
509 p_object_type_id,
510 p_object_type,
511 ddp_attrib_value_tbl,
512 x_object_id,
513 x_return_status,
514 x_msg_count,
515 x_msg_data);
516
517 -- copy data back from the local OUT or IN-OUT args, if any
518
519
520
521
522
523
524
525
526
527
528
529
530
531
532
533 end;
534
535 procedure get_lf_object_type(p_api_version_number NUMBER
536 , p_init_msg_list VARCHAR2
537 , p_object_type VARCHAR
538 , p_object_type_id NUMBER
539 , x_object_type_id OUT NOCOPY /* file.sql.39 change */ NUMBER
540 , x_object_type_desc OUT NOCOPY /* file.sql.39 change */ VARCHAR2
541 , p6_a0 OUT NOCOPY /* file.sql.39 change */ JTF_NUMBER_TABLE
542 , p6_a1 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_100
543 , p6_a2 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_100
544 , x_return_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2
545 , x_msg_count OUT NOCOPY /* file.sql.39 change */ NUMBER
546 , x_msg_data OUT NOCOPY /* file.sql.39 change */ VARCHAR2
547 )
548 as
549 ddx_attrib_rec_tbl jtf_perz_lf_pub.attrib_rec_tbl_type;
550 ddindx binary_integer; indx binary_integer;
551 begin
552
553 -- copy data to the local IN or IN-OUT args, if any
554
555
556
557
558
559
560
561
562
563
564 -- here's the delegated call to the old PL/SQL routine
565 jtf_perz_lf_pub.get_lf_object_type(p_api_version_number,
566 p_init_msg_list,
567 p_object_type,
568 p_object_type_id,
569 x_object_type_id,
570 x_object_type_desc,
571 ddx_attrib_rec_tbl,
572 x_return_status,
573 x_msg_count,
574 x_msg_data);
575
576 -- copy data back from the local OUT or IN-OUT args, if any
577
578
579
580
581
582
583 jtf_perz_lf_pub_w.rosetta_table_copy_out_p1(ddx_attrib_rec_tbl, p6_a0
584 , p6_a1
585 , p6_a2
586 );
587
588
589
590 end;
591
592 procedure get_lf_object(p_api_version_number NUMBER
593 , p_init_msg_list VARCHAR2
594 , p_application_id NUMBER
595 , p_priority NUMBER
596 , p_profile_id NUMBER
597 , p_profile_name VARCHAR2
598 , p_object_id NUMBER
599 , p_object_name VARCHAR
600 , p_obj_active_flag VARCHAR2
601 , p_get_children_flag VARCHAR2
602 , p10_a0 OUT NOCOPY /* file.sql.39 change */ JTF_NUMBER_TABLE
603 , p10_a1 OUT NOCOPY /* file.sql.39 change */ JTF_NUMBER_TABLE
604 , p10_a2 OUT NOCOPY /* file.sql.39 change */ JTF_NUMBER_TABLE
605 , p10_a3 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_100
606 , p10_a4 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_300
607 , p10_a5 OUT NOCOPY /* file.sql.39 change */ JTF_NUMBER_TABLE
608 , p10_a6 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_100
609 , p10_a7 OUT NOCOPY /* file.sql.39 change */ JTF_NUMBER_TABLE
610 , p10_a8 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_100
611 , p10_a9 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_100
612 , p10_a10 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_100
613 , p10_a11 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_100
614 , p10_a12 OUT NOCOPY /* file.sql.39 change */ JTF_NUMBER_TABLE
615 , x_return_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2
616 , x_msg_count OUT NOCOPY /* file.sql.39 change */ NUMBER
617 , x_msg_data OUT NOCOPY /* file.sql.39 change */ VARCHAR2
618 )
619 as
620 ddx_object_tbl jtf_perz_lf_pub.lf_object_out_tbl_type;
621 ddindx binary_integer; indx binary_integer;
622 begin
623
624 -- copy data to the local IN or IN-OUT args, if any
625
626
627
628
629
630
631
632
633
634
635
636
637
638
639 -- here's the delegated call to the old PL/SQL routine
640 jtf_perz_lf_pub.get_lf_object(p_api_version_number,
641 p_init_msg_list,
642 p_application_id,
643 p_priority,
644 p_profile_id,
645 p_profile_name,
646 p_object_id,
647 p_object_name,
648 p_obj_active_flag,
649 p_get_children_flag,
650 ddx_object_tbl,
651 x_return_status,
652 x_msg_count,
653 x_msg_data);
654
655 -- copy data back from the local OUT or IN-OUT args, if any
656
657
658
659
660
661
662
663
664
665
666 jtf_perz_lf_pub_w.rosetta_table_copy_out_p7(ddx_object_tbl, p10_a0
667 , p10_a1
668 , p10_a2
669 , p10_a3
670 , p10_a4
671 , p10_a5
672 , p10_a6
673 , p10_a7
674 , p10_a8
675 , p10_a9
676 , p10_a10
677 , p10_a11
678 , p10_a12
679 );
680
681
682
683 end;
684
685 procedure update_lf_object(p_api_version_number NUMBER
686 , p_init_msg_list VARCHAR2
687 , p_commit VARCHAR2
688 , p_profile_id NUMBER
689 , p_profile_name VARCHAR2
690 , p_application_id NUMBER
691 , p_parent_id NUMBER
692 , p_object_id NUMBER
693 , p_object_name VARCHAR2
694 , p_active_flag VARCHAR2
695 , p_object_type_id NUMBER
696 , p_object_type VARCHAR2
697 , p12_a0 JTF_NUMBER_TABLE
698 , p12_a1 JTF_VARCHAR2_TABLE_100
699 , p12_a2 JTF_VARCHAR2_TABLE_100
700 , p12_a3 JTF_VARCHAR2_TABLE_100
701 , p12_a4 JTF_NUMBER_TABLE
702 , x_object_id OUT NOCOPY /* file.sql.39 change */ NUMBER
703 , x_return_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2
704 , x_msg_count OUT NOCOPY /* file.sql.39 change */ NUMBER
705 , x_msg_data OUT NOCOPY /* file.sql.39 change */ VARCHAR2
706 )
707 as
708 ddp_attrib_value_tbl jtf_perz_lf_pub.attrib_value_tbl_type;
709 ddindx binary_integer; indx binary_integer;
710 begin
711
712 -- copy data to the local IN or IN-OUT args, if any
713
714
715
716
717
718
719
720
721
722
723
724
725 jtf_perz_lf_pub_w.rosetta_table_copy_in_p4(ddp_attrib_value_tbl, p12_a0
726 , p12_a1
727 , p12_a2
728 , p12_a3
729 , p12_a4
730 );
731
732
733
734
735
736 -- here's the delegated call to the old PL/SQL routine
737 jtf_perz_lf_pub.update_lf_object(p_api_version_number,
738 p_init_msg_list,
739 p_commit,
740 p_profile_id,
741 p_profile_name,
742 p_application_id,
743 p_parent_id,
744 p_object_id,
745 p_object_name,
746 p_active_flag,
747 p_object_type_id,
748 p_object_type,
749 ddp_attrib_value_tbl,
750 x_object_id,
751 x_return_status,
752 x_msg_count,
753 x_msg_data);
754
755 -- copy data back from the local OUT or IN-OUT args, if any
756
757
758
759
760
761
762
763
764
765
766
767
768
769
770
771
772 end;
773
774 end jtf_perz_lf_pub_w;