[Home] [Help]
PACKAGE BODY: APPS.CN_ROLE_PMT_PLANS_PVT_W
Source
1 package body cn_role_pmt_plans_pvt_w as
2 /* $Header: cnwrptpb.pls 120.5 2005/09/14 03:42 vensrini noship $ */
3 procedure rosetta_table_copy_in_p1(t out nocopy cn_role_pmt_plans_pvt.role_pmt_plan_rec_tbl_type, a0 JTF_NUMBER_TABLE
4 , a1 JTF_NUMBER_TABLE
5 , a2 JTF_VARCHAR2_TABLE_100
6 , a3 JTF_VARCHAR2_TABLE_100
7 , a4 JTF_NUMBER_TABLE
8 , a5 JTF_DATE_TABLE
9 , a6 JTF_DATE_TABLE
10 , a7 JTF_NUMBER_TABLE
11 , a8 JTF_VARCHAR2_TABLE_100
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_VARCHAR2_TABLE_200
26 , a23 JTF_VARCHAR2_TABLE_200
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).org_id := a0(indx);
36 t(ddindx).role_pmt_plan_id := a1(indx);
37 t(ddindx).role_name := a2(indx);
38 t(ddindx).pmt_plan_name := a3(indx);
39 t(ddindx).pmt_plan_id := a4(indx);
40 t(ddindx).start_date := a5(indx);
41 t(ddindx).end_date := a6(indx);
42 t(ddindx).object_version_number := a7(indx);
43 t(ddindx).attribute_category := a8(indx);
44 t(ddindx).attribute1 := a9(indx);
45 t(ddindx).attribute2 := a10(indx);
46 t(ddindx).attribute3 := a11(indx);
47 t(ddindx).attribute4 := a12(indx);
48 t(ddindx).attribute5 := a13(indx);
49 t(ddindx).attribute6 := a14(indx);
50 t(ddindx).attribute7 := a15(indx);
51 t(ddindx).attribute8 := a16(indx);
52 t(ddindx).attribute9 := a17(indx);
53 t(ddindx).attribute10 := a18(indx);
54 t(ddindx).attribute11 := a19(indx);
55 t(ddindx).attribute12 := a20(indx);
56 t(ddindx).attribute13 := a21(indx);
57 t(ddindx).attribute14 := a22(indx);
58 t(ddindx).attribute15 := 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_pmt_plans_pvt.role_pmt_plan_rec_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
69 , a1 out nocopy JTF_NUMBER_TABLE
70 , a2 out nocopy JTF_VARCHAR2_TABLE_100
71 , a3 out nocopy JTF_VARCHAR2_TABLE_100
72 , a4 out nocopy JTF_NUMBER_TABLE
73 , a5 out nocopy JTF_DATE_TABLE
74 , a6 out nocopy JTF_DATE_TABLE
75 , a7 out nocopy JTF_NUMBER_TABLE
76 , a8 out nocopy JTF_VARCHAR2_TABLE_100
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_VARCHAR2_TABLE_200
91 , a23 out nocopy JTF_VARCHAR2_TABLE_200
92 ) as
93 ddindx binary_integer; indx binary_integer;
94 begin
95 if t is null or t.count = 0 then
96 a0 := JTF_NUMBER_TABLE();
97 a1 := JTF_NUMBER_TABLE();
98 a2 := JTF_VARCHAR2_TABLE_100();
99 a3 := JTF_VARCHAR2_TABLE_100();
100 a4 := JTF_NUMBER_TABLE();
101 a5 := JTF_DATE_TABLE();
102 a6 := JTF_DATE_TABLE();
103 a7 := JTF_NUMBER_TABLE();
104 a8 := JTF_VARCHAR2_TABLE_100();
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_VARCHAR2_TABLE_200();
119 a23 := JTF_VARCHAR2_TABLE_200();
120 else
121 a0 := JTF_NUMBER_TABLE();
122 a1 := JTF_NUMBER_TABLE();
123 a2 := JTF_VARCHAR2_TABLE_100();
124 a3 := JTF_VARCHAR2_TABLE_100();
125 a4 := JTF_NUMBER_TABLE();
126 a5 := JTF_DATE_TABLE();
127 a6 := JTF_DATE_TABLE();
128 a7 := JTF_NUMBER_TABLE();
129 a8 := JTF_VARCHAR2_TABLE_100();
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_VARCHAR2_TABLE_200();
144 a23 := JTF_VARCHAR2_TABLE_200();
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).org_id;
174 a1(indx) := t(ddindx).role_pmt_plan_id;
175 a2(indx) := t(ddindx).role_name;
176 a3(indx) := t(ddindx).pmt_plan_name;
177 a4(indx) := t(ddindx).pmt_plan_id;
178 a5(indx) := t(ddindx).start_date;
179 a6(indx) := t(ddindx).end_date;
180 a7(indx) := t(ddindx).object_version_number;
181 a8(indx) := t(ddindx).attribute_category;
182 a9(indx) := t(ddindx).attribute1;
183 a10(indx) := t(ddindx).attribute2;
184 a11(indx) := t(ddindx).attribute3;
185 a12(indx) := t(ddindx).attribute4;
186 a13(indx) := t(ddindx).attribute5;
187 a14(indx) := t(ddindx).attribute6;
188 a15(indx) := t(ddindx).attribute7;
189 a16(indx) := t(ddindx).attribute8;
190 a17(indx) := t(ddindx).attribute9;
191 a18(indx) := t(ddindx).attribute10;
192 a19(indx) := t(ddindx).attribute11;
193 a20(indx) := t(ddindx).attribute12;
194 a21(indx) := t(ddindx).attribute13;
195 a22(indx) := t(ddindx).attribute14;
196 a23(indx) := t(ddindx).attribute15;
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_pmt_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 NUMBER
216 , p8_a1 NUMBER
217 , p8_a2 VARCHAR2
218 , p8_a3 VARCHAR2
219 , p8_a4 NUMBER
220 , p8_a5 DATE
221 , p8_a6 DATE
222 , p8_a7 NUMBER
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 VARCHAR2
238 , p8_a23 VARCHAR2
239 )
240
241 as
242 ddp_role_pmt_plan_rec cn_role_pmt_plans_pvt.role_pmt_plan_rec_type;
243 ddindx binary_integer; indx binary_integer;
244 begin
245
246 -- copy data to the local IN or IN-OUT args, if any
247
248
249
250
251
252
253
254
255 ddp_role_pmt_plan_rec.org_id := p8_a0;
256 ddp_role_pmt_plan_rec.role_pmt_plan_id := p8_a1;
257 ddp_role_pmt_plan_rec.role_name := p8_a2;
258 ddp_role_pmt_plan_rec.pmt_plan_name := p8_a3;
259 ddp_role_pmt_plan_rec.pmt_plan_id := p8_a4;
260 ddp_role_pmt_plan_rec.start_date := p8_a5;
261 ddp_role_pmt_plan_rec.end_date := p8_a6;
262 ddp_role_pmt_plan_rec.object_version_number := p8_a7;
263 ddp_role_pmt_plan_rec.attribute_category := p8_a8;
264 ddp_role_pmt_plan_rec.attribute1 := p8_a9;
265 ddp_role_pmt_plan_rec.attribute2 := p8_a10;
266 ddp_role_pmt_plan_rec.attribute3 := p8_a11;
267 ddp_role_pmt_plan_rec.attribute4 := p8_a12;
268 ddp_role_pmt_plan_rec.attribute5 := p8_a13;
269 ddp_role_pmt_plan_rec.attribute6 := p8_a14;
270 ddp_role_pmt_plan_rec.attribute7 := p8_a15;
271 ddp_role_pmt_plan_rec.attribute8 := p8_a16;
272 ddp_role_pmt_plan_rec.attribute9 := p8_a17;
273 ddp_role_pmt_plan_rec.attribute10 := p8_a18;
274 ddp_role_pmt_plan_rec.attribute11 := p8_a19;
275 ddp_role_pmt_plan_rec.attribute12 := p8_a20;
276 ddp_role_pmt_plan_rec.attribute13 := p8_a21;
277 ddp_role_pmt_plan_rec.attribute14 := p8_a22;
278 ddp_role_pmt_plan_rec.attribute15 := p8_a23;
279
280 -- here's the delegated call to the old PL/SQL routine
281 cn_role_pmt_plans_pvt.create_role_pmt_plan(p_api_version,
282 p_init_msg_list,
283 p_commit,
284 p_validation_level,
285 x_return_status,
286 x_loading_status,
287 x_msg_count,
288 x_msg_data,
289 ddp_role_pmt_plan_rec);
290
291 -- copy data back from the local variables to OUT or IN-OUT args, if any
292
293
294
295
296
297
298
299
300 end;
301
302 procedure update_role_pmt_plan(p_api_version NUMBER
303 , p_init_msg_list VARCHAR2
304 , p_commit VARCHAR2
305 , p_validation_level NUMBER
306 , x_return_status out nocopy VARCHAR2
307 , x_loading_status out nocopy VARCHAR2
308 , x_msg_count out nocopy NUMBER
309 , x_msg_data out nocopy VARCHAR2
310 , p8_a0 NUMBER
311 , p8_a1 NUMBER
312 , p8_a2 VARCHAR2
313 , p8_a3 VARCHAR2
314 , p8_a4 NUMBER
315 , p8_a5 DATE
316 , p8_a6 DATE
317 , p8_a7 NUMBER
318 , p8_a8 VARCHAR2
319 , p8_a9 VARCHAR2
320 , p8_a10 VARCHAR2
321 , p8_a11 VARCHAR2
322 , p8_a12 VARCHAR2
323 , p8_a13 VARCHAR2
324 , p8_a14 VARCHAR2
325 , p8_a15 VARCHAR2
326 , p8_a16 VARCHAR2
327 , p8_a17 VARCHAR2
328 , p8_a18 VARCHAR2
329 , p8_a19 VARCHAR2
330 , p8_a20 VARCHAR2
331 , p8_a21 VARCHAR2
332 , p8_a22 VARCHAR2
333 , p8_a23 VARCHAR2
334 , p_ovn NUMBER
335 , p10_a0 NUMBER
336 , p10_a1 NUMBER
337 , p10_a2 VARCHAR2
338 , p10_a3 VARCHAR2
339 , p10_a4 NUMBER
340 , p10_a5 DATE
341 , p10_a6 DATE
342 , p10_a7 NUMBER
343 , p10_a8 VARCHAR2
344 , p10_a9 VARCHAR2
345 , p10_a10 VARCHAR2
346 , p10_a11 VARCHAR2
347 , p10_a12 VARCHAR2
348 , p10_a13 VARCHAR2
349 , p10_a14 VARCHAR2
350 , p10_a15 VARCHAR2
351 , p10_a16 VARCHAR2
352 , p10_a17 VARCHAR2
353 , p10_a18 VARCHAR2
354 , p10_a19 VARCHAR2
355 , p10_a20 VARCHAR2
356 , p10_a21 VARCHAR2
357 , p10_a22 VARCHAR2
358 , p10_a23 VARCHAR2
359 )
360
361 as
362 ddp_role_pmt_plan_rec_old cn_role_pmt_plans_pvt.role_pmt_plan_rec_type;
363 ddp_role_pmt_plan_rec_new cn_role_pmt_plans_pvt.role_pmt_plan_rec_type;
364 ddindx binary_integer; indx binary_integer;
365 begin
366
367 -- copy data to the local IN or IN-OUT args, if any
368
369
370
371
372
373
374
375
376 ddp_role_pmt_plan_rec_old.org_id := p8_a0;
377 ddp_role_pmt_plan_rec_old.role_pmt_plan_id := p8_a1;
378 ddp_role_pmt_plan_rec_old.role_name := p8_a2;
379 ddp_role_pmt_plan_rec_old.pmt_plan_name := p8_a3;
380 ddp_role_pmt_plan_rec_old.pmt_plan_id := p8_a4;
381 ddp_role_pmt_plan_rec_old.start_date := p8_a5;
382 ddp_role_pmt_plan_rec_old.end_date := p8_a6;
383 ddp_role_pmt_plan_rec_old.object_version_number := p8_a7;
384 ddp_role_pmt_plan_rec_old.attribute_category := p8_a8;
385 ddp_role_pmt_plan_rec_old.attribute1 := p8_a9;
386 ddp_role_pmt_plan_rec_old.attribute2 := p8_a10;
387 ddp_role_pmt_plan_rec_old.attribute3 := p8_a11;
388 ddp_role_pmt_plan_rec_old.attribute4 := p8_a12;
389 ddp_role_pmt_plan_rec_old.attribute5 := p8_a13;
390 ddp_role_pmt_plan_rec_old.attribute6 := p8_a14;
391 ddp_role_pmt_plan_rec_old.attribute7 := p8_a15;
392 ddp_role_pmt_plan_rec_old.attribute8 := p8_a16;
393 ddp_role_pmt_plan_rec_old.attribute9 := p8_a17;
394 ddp_role_pmt_plan_rec_old.attribute10 := p8_a18;
395 ddp_role_pmt_plan_rec_old.attribute11 := p8_a19;
396 ddp_role_pmt_plan_rec_old.attribute12 := p8_a20;
397 ddp_role_pmt_plan_rec_old.attribute13 := p8_a21;
398 ddp_role_pmt_plan_rec_old.attribute14 := p8_a22;
399 ddp_role_pmt_plan_rec_old.attribute15 := p8_a23;
400
401
402 ddp_role_pmt_plan_rec_new.org_id := p10_a0;
403 ddp_role_pmt_plan_rec_new.role_pmt_plan_id := p10_a1;
404 ddp_role_pmt_plan_rec_new.role_name := p10_a2;
405 ddp_role_pmt_plan_rec_new.pmt_plan_name := p10_a3;
406 ddp_role_pmt_plan_rec_new.pmt_plan_id := p10_a4;
407 ddp_role_pmt_plan_rec_new.start_date := p10_a5;
408 ddp_role_pmt_plan_rec_new.end_date := p10_a6;
409 ddp_role_pmt_plan_rec_new.object_version_number := p10_a7;
410 ddp_role_pmt_plan_rec_new.attribute_category := p10_a8;
411 ddp_role_pmt_plan_rec_new.attribute1 := p10_a9;
412 ddp_role_pmt_plan_rec_new.attribute2 := p10_a10;
413 ddp_role_pmt_plan_rec_new.attribute3 := p10_a11;
414 ddp_role_pmt_plan_rec_new.attribute4 := p10_a12;
415 ddp_role_pmt_plan_rec_new.attribute5 := p10_a13;
416 ddp_role_pmt_plan_rec_new.attribute6 := p10_a14;
417 ddp_role_pmt_plan_rec_new.attribute7 := p10_a15;
418 ddp_role_pmt_plan_rec_new.attribute8 := p10_a16;
419 ddp_role_pmt_plan_rec_new.attribute9 := p10_a17;
420 ddp_role_pmt_plan_rec_new.attribute10 := p10_a18;
421 ddp_role_pmt_plan_rec_new.attribute11 := p10_a19;
422 ddp_role_pmt_plan_rec_new.attribute12 := p10_a20;
423 ddp_role_pmt_plan_rec_new.attribute13 := p10_a21;
424 ddp_role_pmt_plan_rec_new.attribute14 := p10_a22;
425 ddp_role_pmt_plan_rec_new.attribute15 := p10_a23;
426
427 -- here's the delegated call to the old PL/SQL routine
428 cn_role_pmt_plans_pvt.update_role_pmt_plan(p_api_version,
429 p_init_msg_list,
430 p_commit,
431 p_validation_level,
432 x_return_status,
433 x_loading_status,
434 x_msg_count,
435 x_msg_data,
436 ddp_role_pmt_plan_rec_old,
437 p_ovn,
438 ddp_role_pmt_plan_rec_new);
439
440 -- copy data back from the local variables to OUT or IN-OUT args, if any
441
442
443
444
445
446
447
448
449
450
451 end;
452
453 procedure delete_role_pmt_plan(p_api_version NUMBER
454 , p_init_msg_list VARCHAR2
455 , p_commit VARCHAR2
456 , p_validation_level NUMBER
457 , x_return_status out nocopy VARCHAR2
458 , x_loading_status out nocopy VARCHAR2
459 , x_msg_count out nocopy NUMBER
460 , x_msg_data out nocopy VARCHAR2
461 , p8_a0 NUMBER
462 , p8_a1 NUMBER
463 , p8_a2 VARCHAR2
464 , p8_a3 VARCHAR2
465 , p8_a4 NUMBER
466 , p8_a5 DATE
467 , p8_a6 DATE
468 , p8_a7 NUMBER
469 , p8_a8 VARCHAR2
470 , p8_a9 VARCHAR2
471 , p8_a10 VARCHAR2
472 , p8_a11 VARCHAR2
473 , p8_a12 VARCHAR2
474 , p8_a13 VARCHAR2
475 , p8_a14 VARCHAR2
476 , p8_a15 VARCHAR2
477 , p8_a16 VARCHAR2
478 , p8_a17 VARCHAR2
479 , p8_a18 VARCHAR2
480 , p8_a19 VARCHAR2
481 , p8_a20 VARCHAR2
482 , p8_a21 VARCHAR2
483 , p8_a22 VARCHAR2
484 , p8_a23 VARCHAR2
485 )
486
487 as
488 ddp_role_pmt_plan_rec cn_role_pmt_plans_pvt.role_pmt_plan_rec_type;
489 ddindx binary_integer; indx binary_integer;
490 begin
491
492 -- copy data to the local IN or IN-OUT args, if any
493
494
495
496
497
498
499
500
501 ddp_role_pmt_plan_rec.org_id := p8_a0;
502 ddp_role_pmt_plan_rec.role_pmt_plan_id := p8_a1;
503 ddp_role_pmt_plan_rec.role_name := p8_a2;
504 ddp_role_pmt_plan_rec.pmt_plan_name := p8_a3;
505 ddp_role_pmt_plan_rec.pmt_plan_id := p8_a4;
506 ddp_role_pmt_plan_rec.start_date := p8_a5;
507 ddp_role_pmt_plan_rec.end_date := p8_a6;
508 ddp_role_pmt_plan_rec.object_version_number := p8_a7;
509 ddp_role_pmt_plan_rec.attribute_category := p8_a8;
510 ddp_role_pmt_plan_rec.attribute1 := p8_a9;
511 ddp_role_pmt_plan_rec.attribute2 := p8_a10;
512 ddp_role_pmt_plan_rec.attribute3 := p8_a11;
513 ddp_role_pmt_plan_rec.attribute4 := p8_a12;
514 ddp_role_pmt_plan_rec.attribute5 := p8_a13;
515 ddp_role_pmt_plan_rec.attribute6 := p8_a14;
516 ddp_role_pmt_plan_rec.attribute7 := p8_a15;
517 ddp_role_pmt_plan_rec.attribute8 := p8_a16;
518 ddp_role_pmt_plan_rec.attribute9 := p8_a17;
519 ddp_role_pmt_plan_rec.attribute10 := p8_a18;
520 ddp_role_pmt_plan_rec.attribute11 := p8_a19;
521 ddp_role_pmt_plan_rec.attribute12 := p8_a20;
522 ddp_role_pmt_plan_rec.attribute13 := p8_a21;
523 ddp_role_pmt_plan_rec.attribute14 := p8_a22;
524 ddp_role_pmt_plan_rec.attribute15 := p8_a23;
525
526 -- here's the delegated call to the old PL/SQL routine
527 cn_role_pmt_plans_pvt.delete_role_pmt_plan(p_api_version,
528 p_init_msg_list,
529 p_commit,
530 p_validation_level,
531 x_return_status,
532 x_loading_status,
533 x_msg_count,
534 x_msg_data,
535 ddp_role_pmt_plan_rec);
536
537 -- copy data back from the local variables to OUT or IN-OUT args, if any
538
539
540
541
542
543
544
545
546 end;
547
548 end cn_role_pmt_plans_pvt_w;