[Home] [Help]
PACKAGE BODY: APPS.CN_JOB_TITLE_PVT_W
Source
1 package body cn_job_title_pvt_w as
2 /* $Header: cnwjobb.pls 115.5 2002/11/25 22:24:21 nkodkani 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 -- this is to workaround the JDBC bug regarding IN DATE of value GMiss
7 function rosetta_g_miss_date_in_map(d date) return date as
8 begin
9 if d = rosetta_g_mistake_date then return fnd_api.g_miss_date; end if;
10 return d;
11 end;
12
13 procedure rosetta_table_copy_in_p1(t out nocopy cn_job_title_pvt.job_title_tbl_type, a0 JTF_NUMBER_TABLE
14 , a1 JTF_VARCHAR2_TABLE_300
15 , a2 JTF_VARCHAR2_TABLE_300
16 , a3 JTF_NUMBER_TABLE
17 , a4 JTF_VARCHAR2_TABLE_100
18 ) as
19 ddindx binary_integer; indx binary_integer;
20 begin
21 if a0 is not null and a0.count > 0 then
22 if a0.count > 0 then
23 indx := a0.first;
24 ddindx := 1;
25 while true loop
26 t(ddindx).job_title_id := a0(indx);
27 t(ddindx).name := a1(indx);
28 t(ddindx).job_code := a2(indx);
29 t(ddindx).role_id := a3(indx);
30 t(ddindx).role_name := a4(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 cn_job_title_pvt.job_title_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
41 , a1 out nocopy JTF_VARCHAR2_TABLE_300
42 , a2 out nocopy JTF_VARCHAR2_TABLE_300
43 , a3 out nocopy JTF_NUMBER_TABLE
44 , a4 out nocopy JTF_VARCHAR2_TABLE_100
45 ) as
46 ddindx binary_integer; indx binary_integer;
47 begin
48 if t is null or t.count = 0 then
49 a0 := JTF_NUMBER_TABLE();
50 a1 := JTF_VARCHAR2_TABLE_300();
51 a2 := JTF_VARCHAR2_TABLE_300();
52 a3 := JTF_NUMBER_TABLE();
53 a4 := JTF_VARCHAR2_TABLE_100();
54 else
55 a0 := JTF_NUMBER_TABLE();
56 a1 := JTF_VARCHAR2_TABLE_300();
57 a2 := JTF_VARCHAR2_TABLE_300();
58 a3 := JTF_NUMBER_TABLE();
59 a4 := JTF_VARCHAR2_TABLE_100();
60 if t.count > 0 then
61 a0.extend(t.count);
62 a1.extend(t.count);
63 a2.extend(t.count);
64 a3.extend(t.count);
65 a4.extend(t.count);
66 ddindx := t.first;
67 indx := 1;
68 while true loop
69 a0(indx) := t(ddindx).job_title_id;
70 a1(indx) := t(ddindx).name;
71 a2(indx) := t(ddindx).job_code;
72 a3(indx) := t(ddindx).role_id;
73 a4(indx) := t(ddindx).role_name;
74 indx := indx+1;
75 if t.last =ddindx
76 then exit;
77 end if;
78 ddindx := t.next(ddindx);
79 end loop;
80 end if;
81 end if;
82 end rosetta_table_copy_out_p1;
83
84 procedure rosetta_table_copy_in_p3(t out nocopy cn_job_title_pvt.job_role_tbl_type, a0 JTF_NUMBER_TABLE
85 , a1 JTF_NUMBER_TABLE
86 , a2 JTF_NUMBER_TABLE
87 , a3 JTF_DATE_TABLE
88 , a4 JTF_DATE_TABLE
89 , a5 JTF_VARCHAR2_TABLE_100
90 , a6 JTF_VARCHAR2_TABLE_100
91 , a7 JTF_VARCHAR2_TABLE_200
92 , a8 JTF_VARCHAR2_TABLE_200
93 , a9 JTF_VARCHAR2_TABLE_200
94 , a10 JTF_VARCHAR2_TABLE_200
95 , a11 JTF_VARCHAR2_TABLE_200
96 , a12 JTF_VARCHAR2_TABLE_200
97 , a13 JTF_VARCHAR2_TABLE_200
98 , a14 JTF_VARCHAR2_TABLE_200
99 , a15 JTF_VARCHAR2_TABLE_200
100 , a16 JTF_VARCHAR2_TABLE_200
101 , a17 JTF_VARCHAR2_TABLE_200
102 , a18 JTF_VARCHAR2_TABLE_200
103 , a19 JTF_VARCHAR2_TABLE_200
104 , a20 JTF_VARCHAR2_TABLE_200
105 , a21 JTF_VARCHAR2_TABLE_200
106 , a22 JTF_NUMBER_TABLE
107 ) as
108 ddindx binary_integer; indx binary_integer;
109 begin
110 if a0 is not null and a0.count > 0 then
111 if a0.count > 0 then
112 indx := a0.first;
113 ddindx := 1;
114 while true loop
115 t(ddindx).job_role_id := a0(indx);
116 t(ddindx).job_title_id := a1(indx);
117 t(ddindx).role_id := a2(indx);
118 t(ddindx).start_date := rosetta_g_miss_date_in_map(a3(indx));
119 t(ddindx).end_date := rosetta_g_miss_date_in_map(a4(indx));
120 t(ddindx).default_flag := a5(indx);
121 t(ddindx).attribute_category := a6(indx);
122 t(ddindx).attribute1 := a7(indx);
123 t(ddindx).attribute2 := a8(indx);
124 t(ddindx).attribute3 := a9(indx);
125 t(ddindx).attribute4 := a10(indx);
126 t(ddindx).attribute5 := a11(indx);
127 t(ddindx).attribute6 := a12(indx);
128 t(ddindx).attribute7 := a13(indx);
129 t(ddindx).attribute8 := a14(indx);
130 t(ddindx).attribute9 := a15(indx);
131 t(ddindx).attribute10 := a16(indx);
132 t(ddindx).attribute11 := a17(indx);
133 t(ddindx).attribute12 := a18(indx);
134 t(ddindx).attribute13 := a19(indx);
135 t(ddindx).attribute14 := a20(indx);
136 t(ddindx).attribute15 := a21(indx);
137 t(ddindx).object_version_number := a22(indx);
138 ddindx := ddindx+1;
139 if a0.last =indx
140 then exit;
141 end if;
142 indx := a0.next(indx);
143 end loop;
144 end if;
145 end if;
146 end rosetta_table_copy_in_p3;
147 procedure rosetta_table_copy_out_p3(t cn_job_title_pvt.job_role_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
148 , a1 out nocopy JTF_NUMBER_TABLE
149 , a2 out nocopy JTF_NUMBER_TABLE
150 , a3 out nocopy JTF_DATE_TABLE
151 , a4 out nocopy JTF_DATE_TABLE
152 , a5 out nocopy JTF_VARCHAR2_TABLE_100
153 , a6 out nocopy JTF_VARCHAR2_TABLE_100
154 , a7 out nocopy JTF_VARCHAR2_TABLE_200
155 , a8 out nocopy JTF_VARCHAR2_TABLE_200
156 , a9 out nocopy JTF_VARCHAR2_TABLE_200
157 , a10 out nocopy JTF_VARCHAR2_TABLE_200
158 , a11 out nocopy JTF_VARCHAR2_TABLE_200
159 , a12 out nocopy JTF_VARCHAR2_TABLE_200
160 , a13 out nocopy JTF_VARCHAR2_TABLE_200
161 , a14 out nocopy JTF_VARCHAR2_TABLE_200
162 , a15 out nocopy JTF_VARCHAR2_TABLE_200
163 , a16 out nocopy JTF_VARCHAR2_TABLE_200
164 , a17 out nocopy JTF_VARCHAR2_TABLE_200
165 , a18 out nocopy JTF_VARCHAR2_TABLE_200
166 , a19 out nocopy JTF_VARCHAR2_TABLE_200
167 , a20 out nocopy JTF_VARCHAR2_TABLE_200
168 , a21 out nocopy JTF_VARCHAR2_TABLE_200
169 , a22 out nocopy JTF_NUMBER_TABLE
170 ) as
171 ddindx binary_integer; indx binary_integer;
172 begin
173 if t is null or t.count = 0 then
174 a0 := JTF_NUMBER_TABLE();
175 a1 := JTF_NUMBER_TABLE();
176 a2 := JTF_NUMBER_TABLE();
177 a3 := JTF_DATE_TABLE();
178 a4 := JTF_DATE_TABLE();
179 a5 := JTF_VARCHAR2_TABLE_100();
180 a6 := JTF_VARCHAR2_TABLE_100();
181 a7 := JTF_VARCHAR2_TABLE_200();
182 a8 := JTF_VARCHAR2_TABLE_200();
183 a9 := JTF_VARCHAR2_TABLE_200();
184 a10 := JTF_VARCHAR2_TABLE_200();
185 a11 := JTF_VARCHAR2_TABLE_200();
186 a12 := JTF_VARCHAR2_TABLE_200();
187 a13 := JTF_VARCHAR2_TABLE_200();
188 a14 := JTF_VARCHAR2_TABLE_200();
189 a15 := JTF_VARCHAR2_TABLE_200();
190 a16 := JTF_VARCHAR2_TABLE_200();
191 a17 := JTF_VARCHAR2_TABLE_200();
192 a18 := JTF_VARCHAR2_TABLE_200();
193 a19 := JTF_VARCHAR2_TABLE_200();
194 a20 := JTF_VARCHAR2_TABLE_200();
195 a21 := JTF_VARCHAR2_TABLE_200();
196 a22 := JTF_NUMBER_TABLE();
197 else
198 a0 := JTF_NUMBER_TABLE();
199 a1 := JTF_NUMBER_TABLE();
200 a2 := JTF_NUMBER_TABLE();
201 a3 := JTF_DATE_TABLE();
202 a4 := JTF_DATE_TABLE();
203 a5 := JTF_VARCHAR2_TABLE_100();
204 a6 := JTF_VARCHAR2_TABLE_100();
205 a7 := JTF_VARCHAR2_TABLE_200();
206 a8 := JTF_VARCHAR2_TABLE_200();
207 a9 := JTF_VARCHAR2_TABLE_200();
208 a10 := JTF_VARCHAR2_TABLE_200();
209 a11 := JTF_VARCHAR2_TABLE_200();
210 a12 := JTF_VARCHAR2_TABLE_200();
211 a13 := JTF_VARCHAR2_TABLE_200();
212 a14 := JTF_VARCHAR2_TABLE_200();
213 a15 := JTF_VARCHAR2_TABLE_200();
214 a16 := JTF_VARCHAR2_TABLE_200();
215 a17 := JTF_VARCHAR2_TABLE_200();
216 a18 := JTF_VARCHAR2_TABLE_200();
217 a19 := JTF_VARCHAR2_TABLE_200();
218 a20 := JTF_VARCHAR2_TABLE_200();
219 a21 := JTF_VARCHAR2_TABLE_200();
220 a22 := JTF_NUMBER_TABLE();
221 if t.count > 0 then
222 a0.extend(t.count);
223 a1.extend(t.count);
224 a2.extend(t.count);
225 a3.extend(t.count);
226 a4.extend(t.count);
227 a5.extend(t.count);
228 a6.extend(t.count);
229 a7.extend(t.count);
230 a8.extend(t.count);
231 a9.extend(t.count);
232 a10.extend(t.count);
233 a11.extend(t.count);
234 a12.extend(t.count);
235 a13.extend(t.count);
236 a14.extend(t.count);
237 a15.extend(t.count);
238 a16.extend(t.count);
239 a17.extend(t.count);
240 a18.extend(t.count);
241 a19.extend(t.count);
242 a20.extend(t.count);
243 a21.extend(t.count);
244 a22.extend(t.count);
245 ddindx := t.first;
246 indx := 1;
247 while true loop
248 a0(indx) := t(ddindx).job_role_id;
249 a1(indx) := t(ddindx).job_title_id;
250 a2(indx) := t(ddindx).role_id;
251 a3(indx) := t(ddindx).start_date;
252 a4(indx) := t(ddindx).end_date;
253 a5(indx) := t(ddindx).default_flag;
254 a6(indx) := t(ddindx).attribute_category;
255 a7(indx) := t(ddindx).attribute1;
256 a8(indx) := t(ddindx).attribute2;
257 a9(indx) := t(ddindx).attribute3;
258 a10(indx) := t(ddindx).attribute4;
259 a11(indx) := t(ddindx).attribute5;
260 a12(indx) := t(ddindx).attribute6;
261 a13(indx) := t(ddindx).attribute7;
262 a14(indx) := t(ddindx).attribute8;
263 a15(indx) := t(ddindx).attribute9;
264 a16(indx) := t(ddindx).attribute10;
265 a17(indx) := t(ddindx).attribute11;
266 a18(indx) := t(ddindx).attribute12;
267 a19(indx) := t(ddindx).attribute13;
268 a20(indx) := t(ddindx).attribute14;
269 a21(indx) := t(ddindx).attribute15;
270 a22(indx) := t(ddindx).object_version_number;
271 indx := indx+1;
272 if t.last =ddindx
273 then exit;
274 end if;
275 ddindx := t.next(ddindx);
276 end loop;
277 end if;
278 end if;
279 end rosetta_table_copy_out_p3;
280
281 procedure create_job_role(p_api_version NUMBER
282 , p_init_msg_list VARCHAR2
283 , p_commit VARCHAR2
284 , p_validation_level NUMBER
285 , p4_a0 NUMBER
286 , p4_a1 NUMBER
287 , p4_a2 NUMBER
288 , p4_a3 DATE
289 , p4_a4 DATE
290 , p4_a5 VARCHAR2
291 , p4_a6 VARCHAR2
292 , p4_a7 VARCHAR2
293 , p4_a8 VARCHAR2
294 , p4_a9 VARCHAR2
295 , p4_a10 VARCHAR2
296 , p4_a11 VARCHAR2
297 , p4_a12 VARCHAR2
298 , p4_a13 VARCHAR2
299 , p4_a14 VARCHAR2
300 , p4_a15 VARCHAR2
301 , p4_a16 VARCHAR2
302 , p4_a17 VARCHAR2
303 , p4_a18 VARCHAR2
304 , p4_a19 VARCHAR2
305 , p4_a20 VARCHAR2
306 , p4_a21 VARCHAR2
307 , p4_a22 NUMBER
308 , x_return_status out nocopy VARCHAR2
309 , x_msg_count out nocopy NUMBER
310 , x_msg_data out nocopy VARCHAR2
311 , x_job_role_id out nocopy NUMBER
312 )
313
314 as
315 ddp_rec cn_job_title_pvt.job_role_rec_type;
316 ddindx binary_integer; indx binary_integer;
317 begin
318
319 -- copy data to the local IN or IN-OUT args, if any
320
321
322
323
324 ddp_rec.job_role_id := p4_a0;
325 ddp_rec.job_title_id := p4_a1;
326 ddp_rec.role_id := p4_a2;
327 ddp_rec.start_date := rosetta_g_miss_date_in_map(p4_a3);
328 ddp_rec.end_date := rosetta_g_miss_date_in_map(p4_a4);
329 ddp_rec.default_flag := p4_a5;
330 ddp_rec.attribute_category := p4_a6;
331 ddp_rec.attribute1 := p4_a7;
332 ddp_rec.attribute2 := p4_a8;
333 ddp_rec.attribute3 := p4_a9;
334 ddp_rec.attribute4 := p4_a10;
335 ddp_rec.attribute5 := p4_a11;
336 ddp_rec.attribute6 := p4_a12;
337 ddp_rec.attribute7 := p4_a13;
338 ddp_rec.attribute8 := p4_a14;
339 ddp_rec.attribute9 := p4_a15;
340 ddp_rec.attribute10 := p4_a16;
341 ddp_rec.attribute11 := p4_a17;
342 ddp_rec.attribute12 := p4_a18;
343 ddp_rec.attribute13 := p4_a19;
344 ddp_rec.attribute14 := p4_a20;
345 ddp_rec.attribute15 := p4_a21;
346 ddp_rec.object_version_number := p4_a22;
347
348
349
350
351
352 -- here's the delegated call to the old PL/SQL routine
353 cn_job_title_pvt.create_job_role(p_api_version,
354 p_init_msg_list,
355 p_commit,
356 p_validation_level,
357 ddp_rec,
358 x_return_status,
359 x_msg_count,
360 x_msg_data,
361 x_job_role_id);
362
363 -- copy data back from the local variables to OUT or IN-OUT args, if any
364
365
366
367
368
369
370
371
372 end;
373
374 procedure update_job_role(p_api_version NUMBER
375 , p_init_msg_list VARCHAR2
376 , p_commit VARCHAR2
377 , p_validation_level NUMBER
378 , p4_a0 NUMBER
379 , p4_a1 NUMBER
380 , p4_a2 NUMBER
381 , p4_a3 DATE
382 , p4_a4 DATE
383 , p4_a5 VARCHAR2
384 , p4_a6 VARCHAR2
385 , p4_a7 VARCHAR2
386 , p4_a8 VARCHAR2
387 , p4_a9 VARCHAR2
388 , p4_a10 VARCHAR2
389 , p4_a11 VARCHAR2
390 , p4_a12 VARCHAR2
391 , p4_a13 VARCHAR2
392 , p4_a14 VARCHAR2
393 , p4_a15 VARCHAR2
394 , p4_a16 VARCHAR2
395 , p4_a17 VARCHAR2
396 , p4_a18 VARCHAR2
397 , p4_a19 VARCHAR2
398 , p4_a20 VARCHAR2
399 , p4_a21 VARCHAR2
400 , p4_a22 NUMBER
401 , x_return_status out nocopy VARCHAR2
402 , x_msg_count out nocopy NUMBER
403 , x_msg_data out nocopy VARCHAR2
404 )
405
406 as
407 ddp_rec cn_job_title_pvt.job_role_rec_type;
408 ddindx binary_integer; indx binary_integer;
409 begin
410
411 -- copy data to the local IN or IN-OUT args, if any
412
413
414
415
416 ddp_rec.job_role_id := p4_a0;
417 ddp_rec.job_title_id := p4_a1;
418 ddp_rec.role_id := p4_a2;
419 ddp_rec.start_date := rosetta_g_miss_date_in_map(p4_a3);
420 ddp_rec.end_date := rosetta_g_miss_date_in_map(p4_a4);
421 ddp_rec.default_flag := p4_a5;
422 ddp_rec.attribute_category := p4_a6;
423 ddp_rec.attribute1 := p4_a7;
424 ddp_rec.attribute2 := p4_a8;
425 ddp_rec.attribute3 := p4_a9;
426 ddp_rec.attribute4 := p4_a10;
427 ddp_rec.attribute5 := p4_a11;
428 ddp_rec.attribute6 := p4_a12;
429 ddp_rec.attribute7 := p4_a13;
430 ddp_rec.attribute8 := p4_a14;
431 ddp_rec.attribute9 := p4_a15;
432 ddp_rec.attribute10 := p4_a16;
433 ddp_rec.attribute11 := p4_a17;
434 ddp_rec.attribute12 := p4_a18;
435 ddp_rec.attribute13 := p4_a19;
436 ddp_rec.attribute14 := p4_a20;
437 ddp_rec.attribute15 := p4_a21;
438 ddp_rec.object_version_number := p4_a22;
439
440
441
442
443 -- here's the delegated call to the old PL/SQL routine
444 cn_job_title_pvt.update_job_role(p_api_version,
445 p_init_msg_list,
446 p_commit,
447 p_validation_level,
448 ddp_rec,
449 x_return_status,
450 x_msg_count,
451 x_msg_data);
452
453 -- copy data back from the local variables to OUT or IN-OUT args, if any
454
455
456
457
458
459
460
461 end;
462
463 procedure get_job_details(p_job_title_id NUMBER
464 , p1_a0 out nocopy JTF_NUMBER_TABLE
465 , p1_a1 out nocopy JTF_NUMBER_TABLE
466 , p1_a2 out nocopy JTF_NUMBER_TABLE
467 , p1_a3 out nocopy JTF_DATE_TABLE
468 , p1_a4 out nocopy JTF_DATE_TABLE
469 , p1_a5 out nocopy JTF_VARCHAR2_TABLE_100
470 , p1_a6 out nocopy JTF_VARCHAR2_TABLE_100
471 , p1_a7 out nocopy JTF_VARCHAR2_TABLE_200
472 , p1_a8 out nocopy JTF_VARCHAR2_TABLE_200
473 , p1_a9 out nocopy JTF_VARCHAR2_TABLE_200
474 , p1_a10 out nocopy JTF_VARCHAR2_TABLE_200
475 , p1_a11 out nocopy JTF_VARCHAR2_TABLE_200
476 , p1_a12 out nocopy JTF_VARCHAR2_TABLE_200
477 , p1_a13 out nocopy JTF_VARCHAR2_TABLE_200
478 , p1_a14 out nocopy JTF_VARCHAR2_TABLE_200
479 , p1_a15 out nocopy JTF_VARCHAR2_TABLE_200
480 , p1_a16 out nocopy JTF_VARCHAR2_TABLE_200
481 , p1_a17 out nocopy JTF_VARCHAR2_TABLE_200
482 , p1_a18 out nocopy JTF_VARCHAR2_TABLE_200
483 , p1_a19 out nocopy JTF_VARCHAR2_TABLE_200
484 , p1_a20 out nocopy JTF_VARCHAR2_TABLE_200
485 , p1_a21 out nocopy JTF_VARCHAR2_TABLE_200
486 , p1_a22 out nocopy JTF_NUMBER_TABLE
487 )
488
489 as
490 ddx_result_tbl cn_job_title_pvt.job_role_tbl_type;
491 ddindx binary_integer; indx binary_integer;
492 begin
493
494 -- copy data to the local IN or IN-OUT args, if any
495
496
497 -- here's the delegated call to the old PL/SQL routine
498 cn_job_title_pvt.get_job_details(p_job_title_id,
499 ddx_result_tbl);
500
501 -- copy data back from the local variables to OUT or IN-OUT args, if any
502
503 cn_job_title_pvt_w.rosetta_table_copy_out_p3(ddx_result_tbl, p1_a0
504 , p1_a1
505 , p1_a2
506 , p1_a3
507 , p1_a4
508 , p1_a5
509 , p1_a6
510 , p1_a7
511 , p1_a8
512 , p1_a9
513 , p1_a10
514 , p1_a11
515 , p1_a12
516 , p1_a13
517 , p1_a14
518 , p1_a15
519 , p1_a16
520 , p1_a17
521 , p1_a18
522 , p1_a19
523 , p1_a20
524 , p1_a21
525 , p1_a22
526 );
527 end;
528
529 procedure get_job_titles(p_range_low NUMBER
530 , p_range_high NUMBER
531 , p_search_name VARCHAR2
532 , p_search_code VARCHAR2
533 , x_total_rows out nocopy NUMBER
534 , p5_a0 out nocopy JTF_NUMBER_TABLE
535 , p5_a1 out nocopy JTF_VARCHAR2_TABLE_300
536 , p5_a2 out nocopy JTF_VARCHAR2_TABLE_300
537 , p5_a3 out nocopy JTF_NUMBER_TABLE
538 , p5_a4 out nocopy JTF_VARCHAR2_TABLE_100
539 )
540
541 as
542 ddx_result_tbl cn_job_title_pvt.job_title_tbl_type;
543 ddindx binary_integer; indx binary_integer;
544 begin
545
546 -- copy data to the local IN or IN-OUT args, if any
547
548
549
550
551
552
553 -- here's the delegated call to the old PL/SQL routine
554 cn_job_title_pvt.get_job_titles(p_range_low,
555 p_range_high,
556 p_search_name,
557 p_search_code,
558 x_total_rows,
559 ddx_result_tbl);
560
561 -- copy data back from the local variables to OUT or IN-OUT args, if any
562
563
564
565
566
567 cn_job_title_pvt_w.rosetta_table_copy_out_p1(ddx_result_tbl, p5_a0
568 , p5_a1
569 , p5_a2
570 , p5_a3
571 , p5_a4
572 );
573 end;
574
575 procedure get_all_job_titles(p0_a0 out nocopy JTF_NUMBER_TABLE
576 , p0_a1 out nocopy JTF_VARCHAR2_TABLE_300
577 , p0_a2 out nocopy JTF_VARCHAR2_TABLE_300
578 , p0_a3 out nocopy JTF_NUMBER_TABLE
579 , p0_a4 out nocopy JTF_VARCHAR2_TABLE_100
580 )
581
582 as
583 ddx_result_tbl cn_job_title_pvt.job_title_tbl_type;
584 ddindx binary_integer; indx binary_integer;
585 begin
586
587 -- copy data to the local IN or IN-OUT args, if any
588
589 -- here's the delegated call to the old PL/SQL routine
590 cn_job_title_pvt.get_all_job_titles(ddx_result_tbl);
591
592 -- copy data back from the local variables to OUT or IN-OUT args, if any
593 cn_job_title_pvt_w.rosetta_table_copy_out_p1(ddx_result_tbl, p0_a0
594 , p0_a1
595 , p0_a2
596 , p0_a3
597 , p0_a4
598 );
599 end;
600
601 procedure get_job_roles(p0_a0 out nocopy JTF_NUMBER_TABLE
602 , p0_a1 out nocopy JTF_VARCHAR2_TABLE_300
603 , p0_a2 out nocopy JTF_VARCHAR2_TABLE_300
604 , p0_a3 out nocopy JTF_NUMBER_TABLE
605 , p0_a4 out nocopy JTF_VARCHAR2_TABLE_100
606 )
607
608 as
609 ddx_result_tbl cn_job_title_pvt.job_title_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 -- here's the delegated call to the old PL/SQL routine
616 cn_job_title_pvt.get_job_roles(ddx_result_tbl);
617
618 -- copy data back from the local variables to OUT or IN-OUT args, if any
619 cn_job_title_pvt_w.rosetta_table_copy_out_p1(ddx_result_tbl, p0_a0
620 , p0_a1
621 , p0_a2
622 , p0_a3
623 , p0_a4
624 );
625 end;
626
627 end cn_job_title_pvt_w;