[Home] [Help]
PACKAGE BODY: APPS.CN_ROLE_PLANS_PUB_W
Source
1 package body cn_role_plans_pub_w as
2 /* $Header: cnwrlplb.pls 120.2 2005/09/14 03:41 vensrini ship $ */
3 procedure rosetta_table_copy_in_p1(t out nocopy cn_role_plans_pub.role_plan_rec_tbl_type, a0 JTF_VARCHAR2_TABLE_100
4 , a1 JTF_NUMBER_TABLE
5 , a2 JTF_VARCHAR2_TABLE_100
6 , a3 JTF_NUMBER_TABLE
10 , a7 JTF_VARCHAR2_TABLE_200
7 , a4 JTF_DATE_TABLE
8 , a5 JTF_DATE_TABLE
9 , a6 JTF_VARCHAR2_TABLE_100
11 , a8 JTF_VARCHAR2_TABLE_200
12 , a9 JTF_VARCHAR2_TABLE_200
13 , a10 JTF_VARCHAR2_TABLE_200
14 , a11 JTF_VARCHAR2_TABLE_200
15 , a12 JTF_VARCHAR2_TABLE_200
16 , a13 JTF_VARCHAR2_TABLE_200
17 , a14 JTF_VARCHAR2_TABLE_200
18 , a15 JTF_VARCHAR2_TABLE_200
19 , a16 JTF_VARCHAR2_TABLE_200
20 , a17 JTF_VARCHAR2_TABLE_200
21 , a18 JTF_VARCHAR2_TABLE_200
22 , a19 JTF_VARCHAR2_TABLE_200
23 , a20 JTF_VARCHAR2_TABLE_200
24 , a21 JTF_VARCHAR2_TABLE_200
25 , a22 JTF_NUMBER_TABLE
26 , a23 JTF_NUMBER_TABLE
27 ) as
28 ddindx binary_integer; indx binary_integer;
29 begin
30 if a0 is not null and a0.count > 0 then
31 if a0.count > 0 then
32 indx := a0.first;
33 ddindx := 1;
34 while true loop
35 t(ddindx).role_name := a0(indx);
36 t(ddindx).role_id := a1(indx);
37 t(ddindx).comp_plan_name := a2(indx);
38 t(ddindx).comp_plan_id := a3(indx);
39 t(ddindx).start_date := a4(indx);
40 t(ddindx).end_date := a5(indx);
41 t(ddindx).attribute_category := a6(indx);
42 t(ddindx).attribute1 := a7(indx);
43 t(ddindx).attribute2 := a8(indx);
44 t(ddindx).attribute3 := a9(indx);
45 t(ddindx).attribute4 := a10(indx);
46 t(ddindx).attribute5 := a11(indx);
47 t(ddindx).attribute6 := a12(indx);
48 t(ddindx).attribute7 := a13(indx);
49 t(ddindx).attribute8 := a14(indx);
50 t(ddindx).attribute9 := a15(indx);
51 t(ddindx).attribute10 := a16(indx);
52 t(ddindx).attribute11 := a17(indx);
53 t(ddindx).attribute12 := a18(indx);
54 t(ddindx).attribute13 := a19(indx);
55 t(ddindx).attribute14 := a20(indx);
56 t(ddindx).attribute15 := a21(indx);
57 t(ddindx).object_version_number := a22(indx);
58 t(ddindx).org_id := a23(indx);
59 ddindx := ddindx+1;
60 if a0.last =indx
61 then exit;
62 end if;
63 indx := a0.next(indx);
64 end loop;
65 end if;
66 end if;
67 end rosetta_table_copy_in_p1;
68 procedure rosetta_table_copy_out_p1(t cn_role_plans_pub.role_plan_rec_tbl_type, a0 out nocopy JTF_VARCHAR2_TABLE_100
69 , a1 out nocopy JTF_NUMBER_TABLE
70 , a2 out nocopy JTF_VARCHAR2_TABLE_100
71 , a3 out nocopy JTF_NUMBER_TABLE
72 , a4 out nocopy JTF_DATE_TABLE
73 , a5 out nocopy JTF_DATE_TABLE
74 , a6 out nocopy JTF_VARCHAR2_TABLE_100
75 , a7 out nocopy JTF_VARCHAR2_TABLE_200
76 , a8 out nocopy JTF_VARCHAR2_TABLE_200
77 , a9 out nocopy JTF_VARCHAR2_TABLE_200
78 , a10 out nocopy JTF_VARCHAR2_TABLE_200
79 , a11 out nocopy JTF_VARCHAR2_TABLE_200
80 , a12 out nocopy JTF_VARCHAR2_TABLE_200
81 , a13 out nocopy JTF_VARCHAR2_TABLE_200
82 , a14 out nocopy JTF_VARCHAR2_TABLE_200
83 , a15 out nocopy JTF_VARCHAR2_TABLE_200
84 , a16 out nocopy JTF_VARCHAR2_TABLE_200
85 , a17 out nocopy JTF_VARCHAR2_TABLE_200
86 , a18 out nocopy JTF_VARCHAR2_TABLE_200
87 , a19 out nocopy JTF_VARCHAR2_TABLE_200
88 , a20 out nocopy JTF_VARCHAR2_TABLE_200
89 , a21 out nocopy JTF_VARCHAR2_TABLE_200
90 , a22 out nocopy JTF_NUMBER_TABLE
91 , a23 out nocopy JTF_NUMBER_TABLE
92 ) as
93 ddindx binary_integer; indx binary_integer;
94 begin
95 if t is null or t.count = 0 then
96 a0 := JTF_VARCHAR2_TABLE_100();
97 a1 := JTF_NUMBER_TABLE();
98 a2 := JTF_VARCHAR2_TABLE_100();
99 a3 := JTF_NUMBER_TABLE();
100 a4 := JTF_DATE_TABLE();
101 a5 := JTF_DATE_TABLE();
102 a6 := JTF_VARCHAR2_TABLE_100();
103 a7 := JTF_VARCHAR2_TABLE_200();
104 a8 := JTF_VARCHAR2_TABLE_200();
105 a9 := JTF_VARCHAR2_TABLE_200();
106 a10 := JTF_VARCHAR2_TABLE_200();
107 a11 := JTF_VARCHAR2_TABLE_200();
108 a12 := JTF_VARCHAR2_TABLE_200();
109 a13 := JTF_VARCHAR2_TABLE_200();
110 a14 := JTF_VARCHAR2_TABLE_200();
111 a15 := JTF_VARCHAR2_TABLE_200();
112 a16 := JTF_VARCHAR2_TABLE_200();
113 a17 := JTF_VARCHAR2_TABLE_200();
114 a18 := JTF_VARCHAR2_TABLE_200();
115 a19 := JTF_VARCHAR2_TABLE_200();
116 a20 := JTF_VARCHAR2_TABLE_200();
117 a21 := JTF_VARCHAR2_TABLE_200();
118 a22 := JTF_NUMBER_TABLE();
119 a23 := JTF_NUMBER_TABLE();
120 else
121 a0 := JTF_VARCHAR2_TABLE_100();
122 a1 := JTF_NUMBER_TABLE();
123 a2 := JTF_VARCHAR2_TABLE_100();
124 a3 := JTF_NUMBER_TABLE();
125 a4 := JTF_DATE_TABLE();
126 a5 := JTF_DATE_TABLE();
127 a6 := JTF_VARCHAR2_TABLE_100();
128 a7 := JTF_VARCHAR2_TABLE_200();
129 a8 := JTF_VARCHAR2_TABLE_200();
130 a9 := JTF_VARCHAR2_TABLE_200();
131 a10 := JTF_VARCHAR2_TABLE_200();
132 a11 := JTF_VARCHAR2_TABLE_200();
133 a12 := JTF_VARCHAR2_TABLE_200();
134 a13 := JTF_VARCHAR2_TABLE_200();
135 a14 := JTF_VARCHAR2_TABLE_200();
136 a15 := JTF_VARCHAR2_TABLE_200();
137 a16 := JTF_VARCHAR2_TABLE_200();
138 a17 := JTF_VARCHAR2_TABLE_200();
139 a18 := JTF_VARCHAR2_TABLE_200();
140 a19 := JTF_VARCHAR2_TABLE_200();
141 a20 := JTF_VARCHAR2_TABLE_200();
142 a21 := JTF_VARCHAR2_TABLE_200();
143 a22 := JTF_NUMBER_TABLE();
144 a23 := JTF_NUMBER_TABLE();
145 if t.count > 0 then
146 a0.extend(t.count);
147 a1.extend(t.count);
148 a2.extend(t.count);
149 a3.extend(t.count);
150 a4.extend(t.count);
151 a5.extend(t.count);
152 a6.extend(t.count);
153 a7.extend(t.count);
154 a8.extend(t.count);
155 a9.extend(t.count);
156 a10.extend(t.count);
157 a11.extend(t.count);
158 a12.extend(t.count);
159 a13.extend(t.count);
160 a14.extend(t.count);
161 a15.extend(t.count);
162 a16.extend(t.count);
163 a17.extend(t.count);
164 a18.extend(t.count);
165 a19.extend(t.count);
166 a20.extend(t.count);
167 a21.extend(t.count);
168 a22.extend(t.count);
169 a23.extend(t.count);
170 ddindx := t.first;
171 indx := 1;
172 while true loop
173 a0(indx) := t(ddindx).role_name;
174 a1(indx) := t(ddindx).role_id;
175 a2(indx) := t(ddindx).comp_plan_name;
176 a3(indx) := t(ddindx).comp_plan_id;
177 a4(indx) := t(ddindx).start_date;
178 a5(indx) := t(ddindx).end_date;
179 a6(indx) := t(ddindx).attribute_category;
180 a7(indx) := t(ddindx).attribute1;
181 a8(indx) := t(ddindx).attribute2;
182 a9(indx) := t(ddindx).attribute3;
183 a10(indx) := t(ddindx).attribute4;
184 a11(indx) := t(ddindx).attribute5;
185 a12(indx) := t(ddindx).attribute6;
186 a13(indx) := t(ddindx).attribute7;
187 a14(indx) := t(ddindx).attribute8;
188 a15(indx) := t(ddindx).attribute9;
189 a16(indx) := t(ddindx).attribute10;
190 a17(indx) := t(ddindx).attribute11;
191 a18(indx) := t(ddindx).attribute12;
192 a19(indx) := t(ddindx).attribute13;
193 a20(indx) := t(ddindx).attribute14;
194 a21(indx) := t(ddindx).attribute15;
195 a22(indx) := t(ddindx).object_version_number;
196 a23(indx) := t(ddindx).org_id;
197 indx := indx+1;
198 if t.last =ddindx
199 then exit;
200 end if;
201 ddindx := t.next(ddindx);
202 end loop;
203 end if;
204 end if;
205 end rosetta_table_copy_out_p1;
206
207 procedure create_role_plan(p_api_version NUMBER
208 , p_init_msg_list VARCHAR2
209 , p_commit VARCHAR2
210 , p_validation_level NUMBER
211 , x_return_status out nocopy VARCHAR2
212 , x_loading_status out nocopy VARCHAR2
213 , x_msg_count out nocopy NUMBER
214 , x_msg_data out nocopy VARCHAR2
215 , p8_a0 VARCHAR2
216 , p8_a1 NUMBER
217 , p8_a2 VARCHAR2
218 , p8_a3 NUMBER
219 , p8_a4 DATE
220 , p8_a5 DATE
221 , p8_a6 VARCHAR2
222 , p8_a7 VARCHAR2
223 , p8_a8 VARCHAR2
224 , p8_a9 VARCHAR2
225 , p8_a10 VARCHAR2
226 , p8_a11 VARCHAR2
227 , p8_a12 VARCHAR2
228 , p8_a13 VARCHAR2
229 , p8_a14 VARCHAR2
230 , p8_a15 VARCHAR2
231 , p8_a16 VARCHAR2
232 , p8_a17 VARCHAR2
233 , p8_a18 VARCHAR2
234 , p8_a19 VARCHAR2
235 , p8_a20 VARCHAR2
236 , p8_a21 VARCHAR2
237 , p8_a22 NUMBER
238 , p8_a23 NUMBER
239 , x_role_plan_id out nocopy NUMBER
240 , x_obj_ver_num out nocopy NUMBER
241 )
242
243 as
244 ddp_role_plan_rec cn_role_plans_pub.role_plan_rec_type;
245 ddindx binary_integer; indx binary_integer;
246 begin
247
248 -- copy data to the local IN or IN-OUT args, if any
249
250
251
252
253
254
255
256
257 ddp_role_plan_rec.role_name := p8_a0;
258 ddp_role_plan_rec.role_id := p8_a1;
259 ddp_role_plan_rec.comp_plan_name := p8_a2;
260 ddp_role_plan_rec.comp_plan_id := p8_a3;
261 ddp_role_plan_rec.start_date := p8_a4;
262 ddp_role_plan_rec.end_date := p8_a5;
263 ddp_role_plan_rec.attribute_category := p8_a6;
264 ddp_role_plan_rec.attribute1 := p8_a7;
265 ddp_role_plan_rec.attribute2 := p8_a8;
266 ddp_role_plan_rec.attribute3 := p8_a9;
267 ddp_role_plan_rec.attribute4 := p8_a10;
268 ddp_role_plan_rec.attribute5 := p8_a11;
269 ddp_role_plan_rec.attribute6 := p8_a12;
270 ddp_role_plan_rec.attribute7 := p8_a13;
271 ddp_role_plan_rec.attribute8 := p8_a14;
272 ddp_role_plan_rec.attribute9 := p8_a15;
273 ddp_role_plan_rec.attribute10 := p8_a16;
274 ddp_role_plan_rec.attribute11 := p8_a17;
275 ddp_role_plan_rec.attribute12 := p8_a18;
276 ddp_role_plan_rec.attribute13 := p8_a19;
277 ddp_role_plan_rec.attribute14 := p8_a20;
278 ddp_role_plan_rec.attribute15 := p8_a21;
279 ddp_role_plan_rec.object_version_number := p8_a22;
280 ddp_role_plan_rec.org_id := p8_a23;
281
282
283
284 -- here's the delegated call to the old PL/SQL routine
285 cn_role_plans_pub.create_role_plan(p_api_version,
286 p_init_msg_list,
287 p_commit,
288 p_validation_level,
289 x_return_status,
290 x_loading_status,
291 x_msg_count,
292 x_msg_data,
293 ddp_role_plan_rec,
294 x_role_plan_id,
295 x_obj_ver_num);
296
297 -- copy data back from the local variables to OUT or IN-OUT args, if any
298
299
300
301
302
303
304
305
306
307
308 end;
309
310 procedure update_role_plan(p_api_version NUMBER
311 , p_init_msg_list VARCHAR2
312 , p_commit VARCHAR2
313 , p_validation_level NUMBER
314 , x_return_status out nocopy VARCHAR2
315 , x_loading_status out nocopy VARCHAR2
316 , x_msg_count out nocopy NUMBER
317 , x_msg_data out nocopy VARCHAR2
318 , p8_a0 VARCHAR2
319 , p8_a1 NUMBER
320 , p8_a2 VARCHAR2
321 , p8_a3 NUMBER
322 , p8_a4 DATE
323 , p8_a5 DATE
324 , p8_a6 VARCHAR2
325 , p8_a7 VARCHAR2
326 , p8_a8 VARCHAR2
327 , p8_a9 VARCHAR2
328 , p8_a10 VARCHAR2
329 , p8_a11 VARCHAR2
330 , p8_a12 VARCHAR2
331 , p8_a13 VARCHAR2
332 , p8_a14 VARCHAR2
333 , p8_a15 VARCHAR2
334 , p8_a16 VARCHAR2
335 , p8_a17 VARCHAR2
336 , p8_a18 VARCHAR2
337 , p8_a19 VARCHAR2
338 , p8_a20 VARCHAR2
339 , p8_a21 VARCHAR2
340 , p8_a22 NUMBER
341 , p8_a23 NUMBER
342 , p_ovn in out nocopy NUMBER
343 , p10_a0 VARCHAR2
344 , p10_a1 NUMBER
345 , p10_a2 VARCHAR2
346 , p10_a3 NUMBER
347 , p10_a4 DATE
348 , p10_a5 DATE
349 , p10_a6 VARCHAR2
350 , p10_a7 VARCHAR2
351 , p10_a8 VARCHAR2
352 , p10_a9 VARCHAR2
353 , p10_a10 VARCHAR2
354 , p10_a11 VARCHAR2
355 , p10_a12 VARCHAR2
356 , p10_a13 VARCHAR2
357 , p10_a14 VARCHAR2
358 , p10_a15 VARCHAR2
359 , p10_a16 VARCHAR2
360 , p10_a17 VARCHAR2
361 , p10_a18 VARCHAR2
362 , p10_a19 VARCHAR2
363 , p10_a20 VARCHAR2
364 , p10_a21 VARCHAR2
365 , p10_a22 NUMBER
366 , p10_a23 NUMBER
367 , p_role_plan_id NUMBER
368 )
369
370 as
371 ddp_role_plan_rec_old cn_role_plans_pub.role_plan_rec_type;
372 ddp_role_plan_rec_new cn_role_plans_pub.role_plan_rec_type;
373 ddindx binary_integer; indx binary_integer;
374 begin
375
376 -- copy data to the local IN or IN-OUT args, if any
377
378
379
380
381
382
383
384
385 ddp_role_plan_rec_old.role_name := p8_a0;
386 ddp_role_plan_rec_old.role_id := p8_a1;
387 ddp_role_plan_rec_old.comp_plan_name := p8_a2;
388 ddp_role_plan_rec_old.comp_plan_id := p8_a3;
389 ddp_role_plan_rec_old.start_date := p8_a4;
390 ddp_role_plan_rec_old.end_date := p8_a5;
391 ddp_role_plan_rec_old.attribute_category := p8_a6;
392 ddp_role_plan_rec_old.attribute1 := p8_a7;
393 ddp_role_plan_rec_old.attribute2 := p8_a8;
394 ddp_role_plan_rec_old.attribute3 := p8_a9;
395 ddp_role_plan_rec_old.attribute4 := p8_a10;
396 ddp_role_plan_rec_old.attribute5 := p8_a11;
397 ddp_role_plan_rec_old.attribute6 := p8_a12;
398 ddp_role_plan_rec_old.attribute7 := p8_a13;
399 ddp_role_plan_rec_old.attribute8 := p8_a14;
400 ddp_role_plan_rec_old.attribute9 := p8_a15;
401 ddp_role_plan_rec_old.attribute10 := p8_a16;
402 ddp_role_plan_rec_old.attribute11 := p8_a17;
406 ddp_role_plan_rec_old.attribute15 := p8_a21;
403 ddp_role_plan_rec_old.attribute12 := p8_a18;
404 ddp_role_plan_rec_old.attribute13 := p8_a19;
405 ddp_role_plan_rec_old.attribute14 := p8_a20;
407 ddp_role_plan_rec_old.object_version_number := p8_a22;
408 ddp_role_plan_rec_old.org_id := p8_a23;
409
410
411 ddp_role_plan_rec_new.role_name := p10_a0;
412 ddp_role_plan_rec_new.role_id := p10_a1;
413 ddp_role_plan_rec_new.comp_plan_name := p10_a2;
414 ddp_role_plan_rec_new.comp_plan_id := p10_a3;
415 ddp_role_plan_rec_new.start_date := p10_a4;
416 ddp_role_plan_rec_new.end_date := p10_a5;
417 ddp_role_plan_rec_new.attribute_category := p10_a6;
418 ddp_role_plan_rec_new.attribute1 := p10_a7;
419 ddp_role_plan_rec_new.attribute2 := p10_a8;
420 ddp_role_plan_rec_new.attribute3 := p10_a9;
421 ddp_role_plan_rec_new.attribute4 := p10_a10;
422 ddp_role_plan_rec_new.attribute5 := p10_a11;
423 ddp_role_plan_rec_new.attribute6 := p10_a12;
424 ddp_role_plan_rec_new.attribute7 := p10_a13;
425 ddp_role_plan_rec_new.attribute8 := p10_a14;
426 ddp_role_plan_rec_new.attribute9 := p10_a15;
427 ddp_role_plan_rec_new.attribute10 := p10_a16;
428 ddp_role_plan_rec_new.attribute11 := p10_a17;
429 ddp_role_plan_rec_new.attribute12 := p10_a18;
430 ddp_role_plan_rec_new.attribute13 := p10_a19;
431 ddp_role_plan_rec_new.attribute14 := p10_a20;
432 ddp_role_plan_rec_new.attribute15 := p10_a21;
433 ddp_role_plan_rec_new.object_version_number := p10_a22;
434 ddp_role_plan_rec_new.org_id := p10_a23;
435
436
437 -- here's the delegated call to the old PL/SQL routine
438 cn_role_plans_pub.update_role_plan(p_api_version,
439 p_init_msg_list,
440 p_commit,
441 p_validation_level,
442 x_return_status,
443 x_loading_status,
444 x_msg_count,
445 x_msg_data,
446 ddp_role_plan_rec_old,
447 p_ovn,
448 ddp_role_plan_rec_new,
449 p_role_plan_id);
450
451 -- copy data back from the local variables to OUT or IN-OUT args, if any
452
453
454
455
456
457
458
459
460
461
462
463 end;
464
465 procedure delete_role_plan(p_api_version NUMBER
466 , p_init_msg_list VARCHAR2
467 , p_commit VARCHAR2
468 , p_validation_level NUMBER
469 , x_return_status out nocopy VARCHAR2
470 , x_loading_status out nocopy VARCHAR2
471 , x_msg_count out nocopy NUMBER
472 , x_msg_data out nocopy VARCHAR2
473 , p8_a0 VARCHAR2
474 , p8_a1 NUMBER
475 , p8_a2 VARCHAR2
476 , p8_a3 NUMBER
477 , p8_a4 DATE
478 , p8_a5 DATE
479 , p8_a6 VARCHAR2
480 , p8_a7 VARCHAR2
481 , p8_a8 VARCHAR2
482 , p8_a9 VARCHAR2
483 , p8_a10 VARCHAR2
484 , p8_a11 VARCHAR2
485 , p8_a12 VARCHAR2
486 , p8_a13 VARCHAR2
487 , p8_a14 VARCHAR2
488 , p8_a15 VARCHAR2
489 , p8_a16 VARCHAR2
490 , p8_a17 VARCHAR2
491 , p8_a18 VARCHAR2
492 , p8_a19 VARCHAR2
493 , p8_a20 VARCHAR2
494 , p8_a21 VARCHAR2
495 , p8_a22 NUMBER
496 , p8_a23 NUMBER
497 )
498
499 as
500 ddp_role_plan_rec cn_role_plans_pub.role_plan_rec_type;
501 ddindx binary_integer; indx binary_integer;
502 begin
503
504 -- copy data to the local IN or IN-OUT args, if any
505
506
507
508
509
510
511
512
513 ddp_role_plan_rec.role_name := p8_a0;
514 ddp_role_plan_rec.role_id := p8_a1;
515 ddp_role_plan_rec.comp_plan_name := p8_a2;
516 ddp_role_plan_rec.comp_plan_id := p8_a3;
517 ddp_role_plan_rec.start_date := p8_a4;
518 ddp_role_plan_rec.end_date := p8_a5;
519 ddp_role_plan_rec.attribute_category := p8_a6;
520 ddp_role_plan_rec.attribute1 := p8_a7;
521 ddp_role_plan_rec.attribute2 := p8_a8;
522 ddp_role_plan_rec.attribute3 := p8_a9;
523 ddp_role_plan_rec.attribute4 := p8_a10;
524 ddp_role_plan_rec.attribute5 := p8_a11;
525 ddp_role_plan_rec.attribute6 := p8_a12;
526 ddp_role_plan_rec.attribute7 := p8_a13;
527 ddp_role_plan_rec.attribute8 := p8_a14;
528 ddp_role_plan_rec.attribute9 := p8_a15;
529 ddp_role_plan_rec.attribute10 := p8_a16;
530 ddp_role_plan_rec.attribute11 := p8_a17;
531 ddp_role_plan_rec.attribute12 := p8_a18;
532 ddp_role_plan_rec.attribute13 := p8_a19;
533 ddp_role_plan_rec.attribute14 := p8_a20;
534 ddp_role_plan_rec.attribute15 := p8_a21;
535 ddp_role_plan_rec.object_version_number := p8_a22;
536 ddp_role_plan_rec.org_id := p8_a23;
537
538 -- here's the delegated call to the old PL/SQL routine
539 cn_role_plans_pub.delete_role_plan(p_api_version,
540 p_init_msg_list,
541 p_commit,
542 p_validation_level,
543 x_return_status,
544 x_loading_status,
545 x_msg_count,
546 x_msg_data,
547 ddp_role_plan_rec);
548
549 -- copy data back from the local variables to OUT or IN-OUT args, if any
550
551
552
553
554
555
556
557
558 end;
559
560 end cn_role_plans_pub_w;