[Home] [Help]
PACKAGE BODY: APPS.CN_PLAN_ELEMENT_PUB_W
Source
1 package body cn_plan_element_pub_w as
2 /* $Header: cnwppes.pls 120.1.12000000.2 2007/10/09 06:28:56 rnagired ship $ */
3 procedure rosetta_table_copy_in_p2(t out nocopy cn_plan_element_pub.plan_element_rec_tbl_type, a0 JTF_VARCHAR2_TABLE_100
4 , a1 JTF_VARCHAR2_TABLE_1900
5 , a2 JTF_VARCHAR2_TABLE_100
6 , a3 JTF_VARCHAR2_TABLE_100
7 , a4 JTF_NUMBER_TABLE
8 , a5 JTF_VARCHAR2_TABLE_100
9 , a6 JTF_VARCHAR2_TABLE_100
10 , a7 JTF_VARCHAR2_TABLE_100
11 , a8 JTF_VARCHAR2_TABLE_100
12 , a9 JTF_VARCHAR2_TABLE_100
13 , a10 JTF_NUMBER_TABLE
14 , a11 JTF_NUMBER_TABLE
15 , a12 JTF_DATE_TABLE
16 , a13 JTF_DATE_TABLE
17 , a14 JTF_VARCHAR2_TABLE_100
18 , a15 JTF_VARCHAR2_TABLE_100
19 , a16 JTF_VARCHAR2_TABLE_100
20 , a17 JTF_VARCHAR2_TABLE_100
21 , a18 JTF_VARCHAR2_TABLE_100
22 , a19 JTF_NUMBER_TABLE
23 , a20 JTF_NUMBER_TABLE
24 , a21 JTF_VARCHAR2_TABLE_100
25 , a22 JTF_VARCHAR2_TABLE_100
26 , a23 JTF_VARCHAR2_TABLE_100
27 , a24 JTF_VARCHAR2_TABLE_200
28 , a25 JTF_VARCHAR2_TABLE_200
29 , a26 JTF_VARCHAR2_TABLE_200
30 , a27 JTF_VARCHAR2_TABLE_200
31 , a28 JTF_VARCHAR2_TABLE_200
32 , a29 JTF_VARCHAR2_TABLE_200
33 , a30 JTF_VARCHAR2_TABLE_200
34 , a31 JTF_VARCHAR2_TABLE_200
35 , a32 JTF_VARCHAR2_TABLE_200
36 , a33 JTF_VARCHAR2_TABLE_200
37 , a34 JTF_VARCHAR2_TABLE_200
38 , a35 JTF_VARCHAR2_TABLE_200
39 , a36 JTF_VARCHAR2_TABLE_200
40 , a37 JTF_VARCHAR2_TABLE_200
41 , a38 JTF_VARCHAR2_TABLE_200
42 , a39 JTF_NUMBER_TABLE
43 , a40 JTF_NUMBER_TABLE
44 , a41 JTF_VARCHAR2_TABLE_100
45 , a42 JTF_VARCHAR2_TABLE_100
46 ) as
47 ddindx binary_integer; indx binary_integer;
48 begin
49 if a0 is not null and a0.count > 0 then
50 if a0.count > 0 then
51 indx := a0.first;
52 ddindx := 1;
53 while true loop
54 t(ddindx).name := a0(indx);
55 t(ddindx).description := a1(indx);
56 t(ddindx).period_type := a2(indx);
57 t(ddindx).element_type := a3(indx);
58 t(ddindx).target := a4(indx);
59 t(ddindx).incentive_type := a5(indx);
60 t(ddindx).credit_type := a6(indx);
61 t(ddindx).calc_formula_name := a7(indx);
62 t(ddindx).rt_sched_custom_flag := a8(indx);
63 t(ddindx).package_name := a9(indx);
64 t(ddindx).performance_goal := a10(indx);
65 t(ddindx).payment_amount := a11(indx);
66 t(ddindx).start_date := a12(indx);
67 t(ddindx).end_date := a13(indx);
68 t(ddindx).status := a14(indx);
69 t(ddindx).interval_name := a15(indx);
70 t(ddindx).payee_assign_flag := a16(indx);
71 t(ddindx).vesting_flag := a17(indx);
72 t(ddindx).addup_from_rev_class_flag := a18(indx);
73 t(ddindx).expense_account_id := a19(indx);
74 t(ddindx).liability_account_id := a20(indx);
75 t(ddindx).quota_group_code := a21(indx);
76 t(ddindx).payment_group_code := a22(indx);
77 t(ddindx).attribute_category := a23(indx);
78 t(ddindx).attribute1 := a24(indx);
79 t(ddindx).attribute2 := a25(indx);
80 t(ddindx).attribute3 := a26(indx);
81 t(ddindx).attribute4 := a27(indx);
82 t(ddindx).attribute5 := a28(indx);
83 t(ddindx).attribute6 := a29(indx);
84 t(ddindx).attribute7 := a30(indx);
85 t(ddindx).attribute8 := a31(indx);
86 t(ddindx).attribute9 := a32(indx);
87 t(ddindx).attribute10 := a33(indx);
88 t(ddindx).attribute11 := a34(indx);
89 t(ddindx).attribute12 := a35(indx);
90 t(ddindx).attribute13 := a36(indx);
91 t(ddindx).attribute14 := a37(indx);
92 t(ddindx).attribute15 := a38(indx);
93 t(ddindx).org_id := a39(indx);
94 t(ddindx).quota_id := a40(indx);
95 t(ddindx).indirect_credit := a41(indx);
96 t(ddindx).sreps_enddated_flag := a42(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_p2;
106 procedure rosetta_table_copy_out_p2(t cn_plan_element_pub.plan_element_rec_tbl_type, a0 out nocopy JTF_VARCHAR2_TABLE_100
107 , a1 out nocopy JTF_VARCHAR2_TABLE_1900
108 , a2 out nocopy JTF_VARCHAR2_TABLE_100
109 , a3 out nocopy JTF_VARCHAR2_TABLE_100
110 , a4 out nocopy JTF_NUMBER_TABLE
111 , a5 out nocopy JTF_VARCHAR2_TABLE_100
112 , a6 out nocopy JTF_VARCHAR2_TABLE_100
113 , a7 out nocopy JTF_VARCHAR2_TABLE_100
114 , a8 out nocopy JTF_VARCHAR2_TABLE_100
115 , a9 out nocopy JTF_VARCHAR2_TABLE_100
116 , a10 out nocopy JTF_NUMBER_TABLE
117 , a11 out nocopy JTF_NUMBER_TABLE
118 , a12 out nocopy JTF_DATE_TABLE
119 , a13 out nocopy JTF_DATE_TABLE
120 , a14 out nocopy JTF_VARCHAR2_TABLE_100
121 , a15 out nocopy JTF_VARCHAR2_TABLE_100
122 , a16 out nocopy JTF_VARCHAR2_TABLE_100
123 , a17 out nocopy JTF_VARCHAR2_TABLE_100
124 , a18 out nocopy JTF_VARCHAR2_TABLE_100
125 , a19 out nocopy JTF_NUMBER_TABLE
126 , a20 out nocopy JTF_NUMBER_TABLE
127 , a21 out nocopy JTF_VARCHAR2_TABLE_100
128 , a22 out nocopy JTF_VARCHAR2_TABLE_100
129 , a23 out nocopy JTF_VARCHAR2_TABLE_100
130 , a24 out nocopy JTF_VARCHAR2_TABLE_200
131 , a25 out nocopy JTF_VARCHAR2_TABLE_200
132 , a26 out nocopy JTF_VARCHAR2_TABLE_200
133 , a27 out nocopy JTF_VARCHAR2_TABLE_200
134 , a28 out nocopy JTF_VARCHAR2_TABLE_200
135 , a29 out nocopy JTF_VARCHAR2_TABLE_200
136 , a30 out nocopy JTF_VARCHAR2_TABLE_200
137 , a31 out nocopy JTF_VARCHAR2_TABLE_200
138 , a32 out nocopy JTF_VARCHAR2_TABLE_200
139 , a33 out nocopy JTF_VARCHAR2_TABLE_200
140 , a34 out nocopy JTF_VARCHAR2_TABLE_200
141 , a35 out nocopy JTF_VARCHAR2_TABLE_200
142 , a36 out nocopy JTF_VARCHAR2_TABLE_200
143 , a37 out nocopy JTF_VARCHAR2_TABLE_200
144 , a38 out nocopy JTF_VARCHAR2_TABLE_200
145 , a39 out nocopy JTF_NUMBER_TABLE
146 , a40 out nocopy JTF_NUMBER_TABLE
147 , a41 out nocopy JTF_VARCHAR2_TABLE_100
148 , a42 out nocopy JTF_VARCHAR2_TABLE_100
149 ) as
150 ddindx binary_integer; indx binary_integer;
151 begin
152 if t is null or t.count = 0 then
153 a0 := JTF_VARCHAR2_TABLE_100();
154 a1 := JTF_VARCHAR2_TABLE_1900();
155 a2 := JTF_VARCHAR2_TABLE_100();
156 a3 := JTF_VARCHAR2_TABLE_100();
157 a4 := JTF_NUMBER_TABLE();
158 a5 := JTF_VARCHAR2_TABLE_100();
159 a6 := JTF_VARCHAR2_TABLE_100();
160 a7 := JTF_VARCHAR2_TABLE_100();
161 a8 := JTF_VARCHAR2_TABLE_100();
162 a9 := JTF_VARCHAR2_TABLE_100();
163 a10 := JTF_NUMBER_TABLE();
164 a11 := JTF_NUMBER_TABLE();
165 a12 := JTF_DATE_TABLE();
166 a13 := JTF_DATE_TABLE();
167 a14 := JTF_VARCHAR2_TABLE_100();
168 a15 := JTF_VARCHAR2_TABLE_100();
169 a16 := JTF_VARCHAR2_TABLE_100();
170 a17 := JTF_VARCHAR2_TABLE_100();
171 a18 := JTF_VARCHAR2_TABLE_100();
172 a19 := JTF_NUMBER_TABLE();
173 a20 := JTF_NUMBER_TABLE();
174 a21 := JTF_VARCHAR2_TABLE_100();
175 a22 := JTF_VARCHAR2_TABLE_100();
176 a23 := JTF_VARCHAR2_TABLE_100();
177 a24 := JTF_VARCHAR2_TABLE_200();
178 a25 := JTF_VARCHAR2_TABLE_200();
179 a26 := JTF_VARCHAR2_TABLE_200();
180 a27 := JTF_VARCHAR2_TABLE_200();
181 a28 := JTF_VARCHAR2_TABLE_200();
182 a29 := JTF_VARCHAR2_TABLE_200();
183 a30 := JTF_VARCHAR2_TABLE_200();
184 a31 := JTF_VARCHAR2_TABLE_200();
185 a32 := JTF_VARCHAR2_TABLE_200();
186 a33 := JTF_VARCHAR2_TABLE_200();
187 a34 := JTF_VARCHAR2_TABLE_200();
188 a35 := JTF_VARCHAR2_TABLE_200();
189 a36 := JTF_VARCHAR2_TABLE_200();
190 a37 := JTF_VARCHAR2_TABLE_200();
191 a38 := JTF_VARCHAR2_TABLE_200();
192 a39 := JTF_NUMBER_TABLE();
193 a40 := JTF_NUMBER_TABLE();
194 a41 := JTF_VARCHAR2_TABLE_100();
195 a42 := JTF_VARCHAR2_TABLE_100();
196 else
197 a0 := JTF_VARCHAR2_TABLE_100();
198 a1 := JTF_VARCHAR2_TABLE_1900();
199 a2 := JTF_VARCHAR2_TABLE_100();
200 a3 := JTF_VARCHAR2_TABLE_100();
201 a4 := JTF_NUMBER_TABLE();
202 a5 := JTF_VARCHAR2_TABLE_100();
203 a6 := JTF_VARCHAR2_TABLE_100();
204 a7 := JTF_VARCHAR2_TABLE_100();
205 a8 := JTF_VARCHAR2_TABLE_100();
206 a9 := JTF_VARCHAR2_TABLE_100();
207 a10 := JTF_NUMBER_TABLE();
208 a11 := JTF_NUMBER_TABLE();
209 a12 := JTF_DATE_TABLE();
210 a13 := JTF_DATE_TABLE();
211 a14 := JTF_VARCHAR2_TABLE_100();
212 a15 := JTF_VARCHAR2_TABLE_100();
213 a16 := JTF_VARCHAR2_TABLE_100();
214 a17 := JTF_VARCHAR2_TABLE_100();
215 a18 := JTF_VARCHAR2_TABLE_100();
216 a19 := JTF_NUMBER_TABLE();
217 a20 := JTF_NUMBER_TABLE();
218 a21 := JTF_VARCHAR2_TABLE_100();
219 a22 := JTF_VARCHAR2_TABLE_100();
220 a23 := JTF_VARCHAR2_TABLE_100();
221 a24 := JTF_VARCHAR2_TABLE_200();
222 a25 := JTF_VARCHAR2_TABLE_200();
223 a26 := JTF_VARCHAR2_TABLE_200();
224 a27 := JTF_VARCHAR2_TABLE_200();
225 a28 := JTF_VARCHAR2_TABLE_200();
226 a29 := JTF_VARCHAR2_TABLE_200();
227 a30 := JTF_VARCHAR2_TABLE_200();
228 a31 := JTF_VARCHAR2_TABLE_200();
229 a32 := JTF_VARCHAR2_TABLE_200();
230 a33 := JTF_VARCHAR2_TABLE_200();
231 a34 := JTF_VARCHAR2_TABLE_200();
232 a35 := JTF_VARCHAR2_TABLE_200();
233 a36 := JTF_VARCHAR2_TABLE_200();
234 a37 := JTF_VARCHAR2_TABLE_200();
235 a38 := JTF_VARCHAR2_TABLE_200();
236 a39 := JTF_NUMBER_TABLE();
237 a40 := JTF_NUMBER_TABLE();
238 a41 := JTF_VARCHAR2_TABLE_100();
239 a42 := JTF_VARCHAR2_TABLE_100();
240 if t.count > 0 then
241 a0.extend(t.count);
242 a1.extend(t.count);
243 a2.extend(t.count);
244 a3.extend(t.count);
245 a4.extend(t.count);
246 a5.extend(t.count);
247 a6.extend(t.count);
248 a7.extend(t.count);
249 a8.extend(t.count);
250 a9.extend(t.count);
251 a10.extend(t.count);
252 a11.extend(t.count);
253 a12.extend(t.count);
254 a13.extend(t.count);
255 a14.extend(t.count);
256 a15.extend(t.count);
257 a16.extend(t.count);
258 a17.extend(t.count);
259 a18.extend(t.count);
260 a19.extend(t.count);
261 a20.extend(t.count);
262 a21.extend(t.count);
263 a22.extend(t.count);
264 a23.extend(t.count);
265 a24.extend(t.count);
266 a25.extend(t.count);
267 a26.extend(t.count);
268 a27.extend(t.count);
269 a28.extend(t.count);
270 a29.extend(t.count);
271 a30.extend(t.count);
272 a31.extend(t.count);
273 a32.extend(t.count);
274 a33.extend(t.count);
275 a34.extend(t.count);
276 a35.extend(t.count);
277 a36.extend(t.count);
278 a37.extend(t.count);
279 a38.extend(t.count);
280 a39.extend(t.count);
281 a40.extend(t.count);
282 a41.extend(t.count);
283 a42.extend(t.count);
284 ddindx := t.first;
285 indx := 1;
286 while true loop
287 a0(indx) := t(ddindx).name;
288 a1(indx) := t(ddindx).description;
289 a2(indx) := t(ddindx).period_type;
290 a3(indx) := t(ddindx).element_type;
291 a4(indx) := t(ddindx).target;
292 a5(indx) := t(ddindx).incentive_type;
293 a6(indx) := t(ddindx).credit_type;
294 a7(indx) := t(ddindx).calc_formula_name;
295 a8(indx) := t(ddindx).rt_sched_custom_flag;
296 a9(indx) := t(ddindx).package_name;
297 a10(indx) := t(ddindx).performance_goal;
298 a11(indx) := t(ddindx).payment_amount;
299 a12(indx) := t(ddindx).start_date;
300 a13(indx) := t(ddindx).end_date;
301 a14(indx) := t(ddindx).status;
302 a15(indx) := t(ddindx).interval_name;
303 a16(indx) := t(ddindx).payee_assign_flag;
304 a17(indx) := t(ddindx).vesting_flag;
305 a18(indx) := t(ddindx).addup_from_rev_class_flag;
306 a19(indx) := t(ddindx).expense_account_id;
307 a20(indx) := t(ddindx).liability_account_id;
308 a21(indx) := t(ddindx).quota_group_code;
309 a22(indx) := t(ddindx).payment_group_code;
310 a23(indx) := t(ddindx).attribute_category;
311 a24(indx) := t(ddindx).attribute1;
312 a25(indx) := t(ddindx).attribute2;
313 a26(indx) := t(ddindx).attribute3;
314 a27(indx) := t(ddindx).attribute4;
315 a28(indx) := t(ddindx).attribute5;
316 a29(indx) := t(ddindx).attribute6;
317 a30(indx) := t(ddindx).attribute7;
318 a31(indx) := t(ddindx).attribute8;
319 a32(indx) := t(ddindx).attribute9;
320 a33(indx) := t(ddindx).attribute10;
321 a34(indx) := t(ddindx).attribute11;
322 a35(indx) := t(ddindx).attribute12;
323 a36(indx) := t(ddindx).attribute13;
324 a37(indx) := t(ddindx).attribute14;
325 a38(indx) := t(ddindx).attribute15;
326 a39(indx) := t(ddindx).org_id;
327 a40(indx) := t(ddindx).quota_id;
328 a41(indx) := t(ddindx).indirect_credit;
329 a42(indx) := t(ddindx).sreps_enddated_flag;
330 indx := indx+1;
331 if t.last =ddindx
332 then exit;
333 end if;
334 ddindx := t.next(ddindx);
335 end loop;
336 end if;
337 end if;
338 end rosetta_table_copy_out_p2;
339
340 procedure rosetta_table_copy_in_p5(t out nocopy cn_plan_element_pub.period_quotas_rec_tbl_type, a0 JTF_VARCHAR2_TABLE_100
341 , a1 JTF_NUMBER_TABLE
342 , a2 JTF_NUMBER_TABLE
343 , a3 JTF_NUMBER_TABLE
344 , a4 JTF_VARCHAR2_TABLE_200
345 , a5 JTF_VARCHAR2_TABLE_200
346 , a6 JTF_VARCHAR2_TABLE_200
347 , a7 JTF_VARCHAR2_TABLE_200
348 , a8 JTF_VARCHAR2_TABLE_200
349 , a9 JTF_VARCHAR2_TABLE_200
350 , a10 JTF_VARCHAR2_TABLE_200
351 , a11 JTF_VARCHAR2_TABLE_200
352 , a12 JTF_VARCHAR2_TABLE_200
353 , a13 JTF_VARCHAR2_TABLE_200
354 , a14 JTF_VARCHAR2_TABLE_200
355 , a15 JTF_VARCHAR2_TABLE_200
356 , a16 JTF_VARCHAR2_TABLE_200
357 , a17 JTF_VARCHAR2_TABLE_200
358 , a18 JTF_VARCHAR2_TABLE_200
359 , a19 JTF_VARCHAR2_TABLE_100
360 , a20 JTF_NUMBER_TABLE
361 ) as
362 ddindx binary_integer; indx binary_integer;
363 begin
364 if a0 is not null and a0.count > 0 then
365 if a0.count > 0 then
366 indx := a0.first;
367 ddindx := 1;
368 while true loop
369 t(ddindx).period_name := a0(indx);
370 t(ddindx).period_target := a1(indx);
371 t(ddindx).period_payment := a2(indx);
372 t(ddindx).performance_goal := a3(indx);
373 t(ddindx).attribute1 := a4(indx);
374 t(ddindx).attribute2 := a5(indx);
375 t(ddindx).attribute3 := a6(indx);
376 t(ddindx).attribute4 := a7(indx);
377 t(ddindx).attribute5 := a8(indx);
378 t(ddindx).attribute6 := a9(indx);
379 t(ddindx).attribute7 := a10(indx);
380 t(ddindx).attribute8 := a11(indx);
381 t(ddindx).attribute9 := a12(indx);
382 t(ddindx).attribute10 := a13(indx);
383 t(ddindx).attribute11 := a14(indx);
384 t(ddindx).attribute12 := a15(indx);
385 t(ddindx).attribute13 := a16(indx);
386 t(ddindx).attribute14 := a17(indx);
387 t(ddindx).attribute15 := a18(indx);
388 t(ddindx).period_name_old := a19(indx);
389 t(ddindx).org_id := a20(indx);
390 ddindx := ddindx+1;
391 if a0.last =indx
392 then exit;
393 end if;
394 indx := a0.next(indx);
395 end loop;
396 end if;
397 end if;
398 end rosetta_table_copy_in_p5;
399 procedure rosetta_table_copy_out_p5(t cn_plan_element_pub.period_quotas_rec_tbl_type, a0 out nocopy JTF_VARCHAR2_TABLE_100
400 , a1 out nocopy JTF_NUMBER_TABLE
401 , a2 out nocopy JTF_NUMBER_TABLE
402 , a3 out nocopy JTF_NUMBER_TABLE
403 , a4 out nocopy JTF_VARCHAR2_TABLE_200
404 , a5 out nocopy JTF_VARCHAR2_TABLE_200
405 , a6 out nocopy JTF_VARCHAR2_TABLE_200
406 , a7 out nocopy JTF_VARCHAR2_TABLE_200
407 , a8 out nocopy JTF_VARCHAR2_TABLE_200
408 , a9 out nocopy JTF_VARCHAR2_TABLE_200
409 , a10 out nocopy JTF_VARCHAR2_TABLE_200
410 , a11 out nocopy JTF_VARCHAR2_TABLE_200
411 , a12 out nocopy JTF_VARCHAR2_TABLE_200
412 , a13 out nocopy JTF_VARCHAR2_TABLE_200
413 , a14 out nocopy JTF_VARCHAR2_TABLE_200
414 , a15 out nocopy JTF_VARCHAR2_TABLE_200
415 , a16 out nocopy JTF_VARCHAR2_TABLE_200
416 , a17 out nocopy JTF_VARCHAR2_TABLE_200
417 , a18 out nocopy JTF_VARCHAR2_TABLE_200
418 , a19 out nocopy JTF_VARCHAR2_TABLE_100
419 , a20 out nocopy JTF_NUMBER_TABLE
420 ) as
421 ddindx binary_integer; indx binary_integer;
422 begin
423 if t is null or t.count = 0 then
424 a0 := JTF_VARCHAR2_TABLE_100();
425 a1 := JTF_NUMBER_TABLE();
426 a2 := JTF_NUMBER_TABLE();
427 a3 := JTF_NUMBER_TABLE();
428 a4 := JTF_VARCHAR2_TABLE_200();
429 a5 := JTF_VARCHAR2_TABLE_200();
430 a6 := JTF_VARCHAR2_TABLE_200();
431 a7 := JTF_VARCHAR2_TABLE_200();
432 a8 := JTF_VARCHAR2_TABLE_200();
433 a9 := JTF_VARCHAR2_TABLE_200();
434 a10 := JTF_VARCHAR2_TABLE_200();
435 a11 := JTF_VARCHAR2_TABLE_200();
436 a12 := JTF_VARCHAR2_TABLE_200();
437 a13 := JTF_VARCHAR2_TABLE_200();
438 a14 := JTF_VARCHAR2_TABLE_200();
439 a15 := JTF_VARCHAR2_TABLE_200();
440 a16 := JTF_VARCHAR2_TABLE_200();
441 a17 := JTF_VARCHAR2_TABLE_200();
442 a18 := JTF_VARCHAR2_TABLE_200();
443 a19 := JTF_VARCHAR2_TABLE_100();
444 a20 := JTF_NUMBER_TABLE();
445 else
446 a0 := JTF_VARCHAR2_TABLE_100();
447 a1 := JTF_NUMBER_TABLE();
448 a2 := JTF_NUMBER_TABLE();
449 a3 := JTF_NUMBER_TABLE();
450 a4 := JTF_VARCHAR2_TABLE_200();
451 a5 := JTF_VARCHAR2_TABLE_200();
452 a6 := JTF_VARCHAR2_TABLE_200();
453 a7 := JTF_VARCHAR2_TABLE_200();
454 a8 := JTF_VARCHAR2_TABLE_200();
455 a9 := JTF_VARCHAR2_TABLE_200();
456 a10 := JTF_VARCHAR2_TABLE_200();
457 a11 := JTF_VARCHAR2_TABLE_200();
458 a12 := JTF_VARCHAR2_TABLE_200();
459 a13 := JTF_VARCHAR2_TABLE_200();
460 a14 := JTF_VARCHAR2_TABLE_200();
461 a15 := JTF_VARCHAR2_TABLE_200();
462 a16 := JTF_VARCHAR2_TABLE_200();
463 a17 := JTF_VARCHAR2_TABLE_200();
464 a18 := JTF_VARCHAR2_TABLE_200();
465 a19 := JTF_VARCHAR2_TABLE_100();
466 a20 := JTF_NUMBER_TABLE();
467 if t.count > 0 then
468 a0.extend(t.count);
469 a1.extend(t.count);
470 a2.extend(t.count);
471 a3.extend(t.count);
472 a4.extend(t.count);
473 a5.extend(t.count);
474 a6.extend(t.count);
475 a7.extend(t.count);
476 a8.extend(t.count);
477 a9.extend(t.count);
478 a10.extend(t.count);
479 a11.extend(t.count);
480 a12.extend(t.count);
481 a13.extend(t.count);
482 a14.extend(t.count);
483 a15.extend(t.count);
484 a16.extend(t.count);
485 a17.extend(t.count);
486 a18.extend(t.count);
487 a19.extend(t.count);
488 a20.extend(t.count);
489 ddindx := t.first;
490 indx := 1;
491 while true loop
492 a0(indx) := t(ddindx).period_name;
493 a1(indx) := t(ddindx).period_target;
494 a2(indx) := t(ddindx).period_payment;
495 a3(indx) := t(ddindx).performance_goal;
496 a4(indx) := t(ddindx).attribute1;
497 a5(indx) := t(ddindx).attribute2;
498 a6(indx) := t(ddindx).attribute3;
499 a7(indx) := t(ddindx).attribute4;
500 a8(indx) := t(ddindx).attribute5;
501 a9(indx) := t(ddindx).attribute6;
502 a10(indx) := t(ddindx).attribute7;
503 a11(indx) := t(ddindx).attribute8;
504 a12(indx) := t(ddindx).attribute9;
505 a13(indx) := t(ddindx).attribute10;
506 a14(indx) := t(ddindx).attribute11;
507 a15(indx) := t(ddindx).attribute12;
508 a16(indx) := t(ddindx).attribute13;
509 a17(indx) := t(ddindx).attribute14;
510 a18(indx) := t(ddindx).attribute15;
511 a19(indx) := t(ddindx).period_name_old;
512 a20(indx) := t(ddindx).org_id;
513 indx := indx+1;
514 if t.last =ddindx
515 then exit;
516 end if;
517 ddindx := t.next(ddindx);
518 end loop;
519 end if;
520 end if;
521 end rosetta_table_copy_out_p5;
522
523 procedure rosetta_table_copy_in_p8(t out nocopy cn_plan_element_pub.revenue_class_rec_tbl_type, a0 JTF_VARCHAR2_TABLE_100
524 , a1 JTF_NUMBER_TABLE
525 , a2 JTF_NUMBER_TABLE
526 , a3 JTF_NUMBER_TABLE
527 , a4 JTF_VARCHAR2_TABLE_1900
528 , a5 JTF_VARCHAR2_TABLE_100
529 , a6 JTF_VARCHAR2_TABLE_200
530 , a7 JTF_VARCHAR2_TABLE_200
531 , a8 JTF_VARCHAR2_TABLE_200
532 , a9 JTF_VARCHAR2_TABLE_200
533 , a10 JTF_VARCHAR2_TABLE_200
534 , a11 JTF_VARCHAR2_TABLE_200
535 , a12 JTF_VARCHAR2_TABLE_200
536 , a13 JTF_VARCHAR2_TABLE_200
537 , a14 JTF_VARCHAR2_TABLE_200
538 , a15 JTF_VARCHAR2_TABLE_200
539 , a16 JTF_VARCHAR2_TABLE_200
540 , a17 JTF_VARCHAR2_TABLE_200
541 , a18 JTF_VARCHAR2_TABLE_200
542 , a19 JTF_VARCHAR2_TABLE_200
543 , a20 JTF_VARCHAR2_TABLE_200
544 , a21 JTF_VARCHAR2_TABLE_100
545 , a22 JTF_NUMBER_TABLE
546 ) as
547 ddindx binary_integer; indx binary_integer;
548 begin
549 if a0 is not null and a0.count > 0 then
550 if a0.count > 0 then
551 indx := a0.first;
552 ddindx := 1;
553 while true loop
554 t(ddindx).rev_class_name := a0(indx);
555 t(ddindx).rev_class_target := a1(indx);
556 t(ddindx).rev_class_payment_amount := a2(indx);
557 t(ddindx).rev_class_performance_goal := a3(indx);
558 t(ddindx).description := a4(indx);
559 t(ddindx).attribute_category := a5(indx);
560 t(ddindx).attribute1 := a6(indx);
561 t(ddindx).attribute2 := a7(indx);
562 t(ddindx).attribute3 := a8(indx);
563 t(ddindx).attribute4 := a9(indx);
564 t(ddindx).attribute5 := a10(indx);
565 t(ddindx).attribute6 := a11(indx);
566 t(ddindx).attribute7 := a12(indx);
567 t(ddindx).attribute8 := a13(indx);
568 t(ddindx).attribute9 := a14(indx);
569 t(ddindx).attribute10 := a15(indx);
570 t(ddindx).attribute11 := a16(indx);
571 t(ddindx).attribute12 := a17(indx);
572 t(ddindx).attribute13 := a18(indx);
573 t(ddindx).attribute14 := a19(indx);
574 t(ddindx).attribute15 := a20(indx);
575 t(ddindx).rev_class_name_old := a21(indx);
576 t(ddindx).org_id := a22(indx);
577 ddindx := ddindx+1;
578 if a0.last =indx
579 then exit;
580 end if;
581 indx := a0.next(indx);
582 end loop;
583 end if;
584 end if;
585 end rosetta_table_copy_in_p8;
586 procedure rosetta_table_copy_out_p8(t cn_plan_element_pub.revenue_class_rec_tbl_type, a0 out nocopy JTF_VARCHAR2_TABLE_100
587 , a1 out nocopy JTF_NUMBER_TABLE
588 , a2 out nocopy JTF_NUMBER_TABLE
589 , a3 out nocopy JTF_NUMBER_TABLE
590 , a4 out nocopy JTF_VARCHAR2_TABLE_1900
591 , a5 out nocopy JTF_VARCHAR2_TABLE_100
592 , a6 out nocopy JTF_VARCHAR2_TABLE_200
593 , a7 out nocopy JTF_VARCHAR2_TABLE_200
594 , a8 out nocopy JTF_VARCHAR2_TABLE_200
595 , a9 out nocopy JTF_VARCHAR2_TABLE_200
596 , a10 out nocopy JTF_VARCHAR2_TABLE_200
597 , a11 out nocopy JTF_VARCHAR2_TABLE_200
598 , a12 out nocopy JTF_VARCHAR2_TABLE_200
599 , a13 out nocopy JTF_VARCHAR2_TABLE_200
600 , a14 out nocopy JTF_VARCHAR2_TABLE_200
601 , a15 out nocopy JTF_VARCHAR2_TABLE_200
602 , a16 out nocopy JTF_VARCHAR2_TABLE_200
603 , a17 out nocopy JTF_VARCHAR2_TABLE_200
604 , a18 out nocopy JTF_VARCHAR2_TABLE_200
605 , a19 out nocopy JTF_VARCHAR2_TABLE_200
606 , a20 out nocopy JTF_VARCHAR2_TABLE_200
607 , a21 out nocopy JTF_VARCHAR2_TABLE_100
608 , a22 out nocopy JTF_NUMBER_TABLE
609 ) as
610 ddindx binary_integer; indx binary_integer;
611 begin
612 if t is null or t.count = 0 then
613 a0 := JTF_VARCHAR2_TABLE_100();
614 a1 := JTF_NUMBER_TABLE();
615 a2 := JTF_NUMBER_TABLE();
616 a3 := JTF_NUMBER_TABLE();
617 a4 := JTF_VARCHAR2_TABLE_1900();
618 a5 := JTF_VARCHAR2_TABLE_100();
619 a6 := JTF_VARCHAR2_TABLE_200();
620 a7 := JTF_VARCHAR2_TABLE_200();
621 a8 := JTF_VARCHAR2_TABLE_200();
622 a9 := JTF_VARCHAR2_TABLE_200();
623 a10 := JTF_VARCHAR2_TABLE_200();
624 a11 := JTF_VARCHAR2_TABLE_200();
625 a12 := JTF_VARCHAR2_TABLE_200();
626 a13 := JTF_VARCHAR2_TABLE_200();
627 a14 := JTF_VARCHAR2_TABLE_200();
628 a15 := JTF_VARCHAR2_TABLE_200();
629 a16 := JTF_VARCHAR2_TABLE_200();
630 a17 := JTF_VARCHAR2_TABLE_200();
631 a18 := JTF_VARCHAR2_TABLE_200();
632 a19 := JTF_VARCHAR2_TABLE_200();
633 a20 := JTF_VARCHAR2_TABLE_200();
634 a21 := JTF_VARCHAR2_TABLE_100();
635 a22 := JTF_NUMBER_TABLE();
636 else
637 a0 := JTF_VARCHAR2_TABLE_100();
638 a1 := JTF_NUMBER_TABLE();
639 a2 := JTF_NUMBER_TABLE();
640 a3 := JTF_NUMBER_TABLE();
641 a4 := JTF_VARCHAR2_TABLE_1900();
642 a5 := JTF_VARCHAR2_TABLE_100();
643 a6 := JTF_VARCHAR2_TABLE_200();
644 a7 := JTF_VARCHAR2_TABLE_200();
645 a8 := JTF_VARCHAR2_TABLE_200();
646 a9 := JTF_VARCHAR2_TABLE_200();
647 a10 := JTF_VARCHAR2_TABLE_200();
648 a11 := JTF_VARCHAR2_TABLE_200();
649 a12 := JTF_VARCHAR2_TABLE_200();
650 a13 := JTF_VARCHAR2_TABLE_200();
651 a14 := JTF_VARCHAR2_TABLE_200();
652 a15 := JTF_VARCHAR2_TABLE_200();
653 a16 := JTF_VARCHAR2_TABLE_200();
654 a17 := JTF_VARCHAR2_TABLE_200();
655 a18 := JTF_VARCHAR2_TABLE_200();
656 a19 := JTF_VARCHAR2_TABLE_200();
657 a20 := JTF_VARCHAR2_TABLE_200();
658 a21 := JTF_VARCHAR2_TABLE_100();
659 a22 := JTF_NUMBER_TABLE();
660 if t.count > 0 then
661 a0.extend(t.count);
662 a1.extend(t.count);
663 a2.extend(t.count);
664 a3.extend(t.count);
665 a4.extend(t.count);
666 a5.extend(t.count);
667 a6.extend(t.count);
668 a7.extend(t.count);
669 a8.extend(t.count);
670 a9.extend(t.count);
671 a10.extend(t.count);
672 a11.extend(t.count);
673 a12.extend(t.count);
674 a13.extend(t.count);
675 a14.extend(t.count);
676 a15.extend(t.count);
677 a16.extend(t.count);
678 a17.extend(t.count);
679 a18.extend(t.count);
680 a19.extend(t.count);
681 a20.extend(t.count);
682 a21.extend(t.count);
683 a22.extend(t.count);
684 ddindx := t.first;
685 indx := 1;
686 while true loop
687 a0(indx) := t(ddindx).rev_class_name;
688 a1(indx) := t(ddindx).rev_class_target;
689 a2(indx) := t(ddindx).rev_class_payment_amount;
690 a3(indx) := t(ddindx).rev_class_performance_goal;
691 a4(indx) := t(ddindx).description;
692 a5(indx) := t(ddindx).attribute_category;
693 a6(indx) := t(ddindx).attribute1;
694 a7(indx) := t(ddindx).attribute2;
695 a8(indx) := t(ddindx).attribute3;
696 a9(indx) := t(ddindx).attribute4;
697 a10(indx) := t(ddindx).attribute5;
698 a11(indx) := t(ddindx).attribute6;
699 a12(indx) := t(ddindx).attribute7;
700 a13(indx) := t(ddindx).attribute8;
701 a14(indx) := t(ddindx).attribute9;
702 a15(indx) := t(ddindx).attribute10;
703 a16(indx) := t(ddindx).attribute11;
704 a17(indx) := t(ddindx).attribute12;
705 a18(indx) := t(ddindx).attribute13;
706 a19(indx) := t(ddindx).attribute14;
707 a20(indx) := t(ddindx).attribute15;
708 a21(indx) := t(ddindx).rev_class_name_old;
709 a22(indx) := t(ddindx).org_id;
710 indx := indx+1;
711 if t.last =ddindx
712 then exit;
713 end if;
714 ddindx := t.next(ddindx);
715 end loop;
716 end if;
717 end if;
718 end rosetta_table_copy_out_p8;
719
720 procedure rosetta_table_copy_in_p11(t out nocopy cn_plan_element_pub.rev_uplift_rec_tbl_type, a0 JTF_VARCHAR2_TABLE_100
721 , a1 JTF_DATE_TABLE
722 , a2 JTF_DATE_TABLE
723 , a3 JTF_NUMBER_TABLE
724 , a4 JTF_NUMBER_TABLE
725 , a5 JTF_VARCHAR2_TABLE_100
726 , a6 JTF_VARCHAR2_TABLE_200
727 , a7 JTF_VARCHAR2_TABLE_200
728 , a8 JTF_VARCHAR2_TABLE_200
729 , a9 JTF_VARCHAR2_TABLE_200
730 , a10 JTF_VARCHAR2_TABLE_200
731 , a11 JTF_VARCHAR2_TABLE_200
732 , a12 JTF_VARCHAR2_TABLE_200
733 , a13 JTF_VARCHAR2_TABLE_200
734 , a14 JTF_VARCHAR2_TABLE_200
735 , a15 JTF_VARCHAR2_TABLE_200
736 , a16 JTF_VARCHAR2_TABLE_200
737 , a17 JTF_VARCHAR2_TABLE_200
738 , a18 JTF_VARCHAR2_TABLE_200
739 , a19 JTF_VARCHAR2_TABLE_200
740 , a20 JTF_VARCHAR2_TABLE_200
741 , a21 JTF_VARCHAR2_TABLE_100
742 , a22 JTF_DATE_TABLE
743 , a23 JTF_DATE_TABLE
744 , a24 JTF_NUMBER_TABLE
745 , a25 JTF_NUMBER_TABLE
746 ) as
747 ddindx binary_integer; indx binary_integer;
748 begin
749 if a0 is not null and a0.count > 0 then
750 if a0.count > 0 then
751 indx := a0.first;
752 ddindx := 1;
753 while true loop
754 t(ddindx).rev_class_name := a0(indx);
755 t(ddindx).start_date := a1(indx);
756 t(ddindx).end_date := a2(indx);
757 t(ddindx).rev_class_payment_uplift := a3(indx);
758 t(ddindx).rev_class_quota_uplift := a4(indx);
759 t(ddindx).attribute_category := a5(indx);
760 t(ddindx).attribute1 := a6(indx);
761 t(ddindx).attribute2 := a7(indx);
762 t(ddindx).attribute3 := a8(indx);
763 t(ddindx).attribute4 := a9(indx);
764 t(ddindx).attribute5 := a10(indx);
765 t(ddindx).attribute6 := a11(indx);
766 t(ddindx).attribute7 := a12(indx);
767 t(ddindx).attribute8 := a13(indx);
768 t(ddindx).attribute9 := a14(indx);
769 t(ddindx).attribute10 := a15(indx);
770 t(ddindx).attribute11 := a16(indx);
771 t(ddindx).attribute12 := a17(indx);
772 t(ddindx).attribute13 := a18(indx);
773 t(ddindx).attribute14 := a19(indx);
774 t(ddindx).attribute15 := a20(indx);
775 t(ddindx).rev_class_name_old := a21(indx);
776 t(ddindx).start_date_old := a22(indx);
777 t(ddindx).end_date_old := a23(indx);
778 t(ddindx).org_id := a24(indx);
779 t(ddindx).object_version_number := a25(indx);
780 ddindx := ddindx+1;
781 if a0.last =indx
782 then exit;
783 end if;
784 indx := a0.next(indx);
785 end loop;
786 end if;
787 end if;
788 end rosetta_table_copy_in_p11;
789 procedure rosetta_table_copy_out_p11(t cn_plan_element_pub.rev_uplift_rec_tbl_type, a0 out nocopy JTF_VARCHAR2_TABLE_100
790 , a1 out nocopy JTF_DATE_TABLE
791 , a2 out nocopy JTF_DATE_TABLE
792 , a3 out nocopy JTF_NUMBER_TABLE
793 , a4 out nocopy JTF_NUMBER_TABLE
794 , a5 out nocopy JTF_VARCHAR2_TABLE_100
795 , a6 out nocopy JTF_VARCHAR2_TABLE_200
796 , a7 out nocopy JTF_VARCHAR2_TABLE_200
797 , a8 out nocopy JTF_VARCHAR2_TABLE_200
798 , a9 out nocopy JTF_VARCHAR2_TABLE_200
799 , a10 out nocopy JTF_VARCHAR2_TABLE_200
800 , a11 out nocopy JTF_VARCHAR2_TABLE_200
801 , a12 out nocopy JTF_VARCHAR2_TABLE_200
802 , a13 out nocopy JTF_VARCHAR2_TABLE_200
803 , a14 out nocopy JTF_VARCHAR2_TABLE_200
804 , a15 out nocopy JTF_VARCHAR2_TABLE_200
805 , a16 out nocopy JTF_VARCHAR2_TABLE_200
806 , a17 out nocopy JTF_VARCHAR2_TABLE_200
807 , a18 out nocopy JTF_VARCHAR2_TABLE_200
808 , a19 out nocopy JTF_VARCHAR2_TABLE_200
809 , a20 out nocopy JTF_VARCHAR2_TABLE_200
810 , a21 out nocopy JTF_VARCHAR2_TABLE_100
811 , a22 out nocopy JTF_DATE_TABLE
812 , a23 out nocopy JTF_DATE_TABLE
813 , a24 out nocopy JTF_NUMBER_TABLE
814 , a25 out nocopy JTF_NUMBER_TABLE
815 ) as
816 ddindx binary_integer; indx binary_integer;
817 begin
818 if t is null or t.count = 0 then
819 a0 := JTF_VARCHAR2_TABLE_100();
820 a1 := JTF_DATE_TABLE();
821 a2 := JTF_DATE_TABLE();
822 a3 := JTF_NUMBER_TABLE();
823 a4 := JTF_NUMBER_TABLE();
824 a5 := JTF_VARCHAR2_TABLE_100();
825 a6 := JTF_VARCHAR2_TABLE_200();
826 a7 := JTF_VARCHAR2_TABLE_200();
827 a8 := JTF_VARCHAR2_TABLE_200();
828 a9 := JTF_VARCHAR2_TABLE_200();
829 a10 := JTF_VARCHAR2_TABLE_200();
830 a11 := JTF_VARCHAR2_TABLE_200();
831 a12 := JTF_VARCHAR2_TABLE_200();
832 a13 := JTF_VARCHAR2_TABLE_200();
833 a14 := JTF_VARCHAR2_TABLE_200();
834 a15 := JTF_VARCHAR2_TABLE_200();
835 a16 := JTF_VARCHAR2_TABLE_200();
836 a17 := JTF_VARCHAR2_TABLE_200();
837 a18 := JTF_VARCHAR2_TABLE_200();
838 a19 := JTF_VARCHAR2_TABLE_200();
839 a20 := JTF_VARCHAR2_TABLE_200();
840 a21 := JTF_VARCHAR2_TABLE_100();
841 a22 := JTF_DATE_TABLE();
842 a23 := JTF_DATE_TABLE();
843 a24 := JTF_NUMBER_TABLE();
844 a25 := JTF_NUMBER_TABLE();
845 else
846 a0 := JTF_VARCHAR2_TABLE_100();
847 a1 := JTF_DATE_TABLE();
848 a2 := JTF_DATE_TABLE();
849 a3 := JTF_NUMBER_TABLE();
850 a4 := JTF_NUMBER_TABLE();
851 a5 := JTF_VARCHAR2_TABLE_100();
852 a6 := JTF_VARCHAR2_TABLE_200();
853 a7 := JTF_VARCHAR2_TABLE_200();
854 a8 := JTF_VARCHAR2_TABLE_200();
855 a9 := JTF_VARCHAR2_TABLE_200();
856 a10 := JTF_VARCHAR2_TABLE_200();
857 a11 := JTF_VARCHAR2_TABLE_200();
858 a12 := JTF_VARCHAR2_TABLE_200();
859 a13 := JTF_VARCHAR2_TABLE_200();
860 a14 := JTF_VARCHAR2_TABLE_200();
861 a15 := JTF_VARCHAR2_TABLE_200();
862 a16 := JTF_VARCHAR2_TABLE_200();
863 a17 := JTF_VARCHAR2_TABLE_200();
864 a18 := JTF_VARCHAR2_TABLE_200();
865 a19 := JTF_VARCHAR2_TABLE_200();
866 a20 := JTF_VARCHAR2_TABLE_200();
867 a21 := JTF_VARCHAR2_TABLE_100();
868 a22 := JTF_DATE_TABLE();
869 a23 := JTF_DATE_TABLE();
870 a24 := JTF_NUMBER_TABLE();
871 a25 := JTF_NUMBER_TABLE();
872 if t.count > 0 then
873 a0.extend(t.count);
874 a1.extend(t.count);
875 a2.extend(t.count);
876 a3.extend(t.count);
877 a4.extend(t.count);
878 a5.extend(t.count);
879 a6.extend(t.count);
880 a7.extend(t.count);
881 a8.extend(t.count);
882 a9.extend(t.count);
883 a10.extend(t.count);
884 a11.extend(t.count);
885 a12.extend(t.count);
886 a13.extend(t.count);
887 a14.extend(t.count);
888 a15.extend(t.count);
889 a16.extend(t.count);
890 a17.extend(t.count);
891 a18.extend(t.count);
892 a19.extend(t.count);
893 a20.extend(t.count);
894 a21.extend(t.count);
895 a22.extend(t.count);
896 a23.extend(t.count);
897 a24.extend(t.count);
898 a25.extend(t.count);
899 ddindx := t.first;
900 indx := 1;
901 while true loop
902 a0(indx) := t(ddindx).rev_class_name;
903 a1(indx) := t(ddindx).start_date;
904 a2(indx) := t(ddindx).end_date;
905 a3(indx) := t(ddindx).rev_class_payment_uplift;
906 a4(indx) := t(ddindx).rev_class_quota_uplift;
907 a5(indx) := t(ddindx).attribute_category;
908 a6(indx) := t(ddindx).attribute1;
909 a7(indx) := t(ddindx).attribute2;
910 a8(indx) := t(ddindx).attribute3;
911 a9(indx) := t(ddindx).attribute4;
912 a10(indx) := t(ddindx).attribute5;
913 a11(indx) := t(ddindx).attribute6;
914 a12(indx) := t(ddindx).attribute7;
915 a13(indx) := t(ddindx).attribute8;
916 a14(indx) := t(ddindx).attribute9;
917 a15(indx) := t(ddindx).attribute10;
918 a16(indx) := t(ddindx).attribute11;
919 a17(indx) := t(ddindx).attribute12;
920 a18(indx) := t(ddindx).attribute13;
921 a19(indx) := t(ddindx).attribute14;
922 a20(indx) := t(ddindx).attribute15;
923 a21(indx) := t(ddindx).rev_class_name_old;
924 a22(indx) := t(ddindx).start_date_old;
925 a23(indx) := t(ddindx).end_date_old;
926 a24(indx) := t(ddindx).org_id;
927 a25(indx) := t(ddindx).object_version_number;
928 indx := indx+1;
929 if t.last =ddindx
930 then exit;
931 end if;
932 ddindx := t.next(ddindx);
933 end loop;
934 end if;
935 end if;
936 end rosetta_table_copy_out_p11;
937
938 procedure rosetta_table_copy_in_p14(t out nocopy cn_plan_element_pub.trx_factor_rec_tbl_type, a0 JTF_VARCHAR2_TABLE_100
939 , a1 JTF_NUMBER_TABLE
940 , a2 JTF_VARCHAR2_TABLE_100
941 , a3 JTF_NUMBER_TABLE
942 ) as
943 ddindx binary_integer; indx binary_integer;
944 begin
945 if a0 is not null and a0.count > 0 then
946 if a0.count > 0 then
947 indx := a0.first;
948 ddindx := 1;
949 while true loop
950 t(ddindx).trx_type := a0(indx);
951 t(ddindx).event_factor := a1(indx);
952 t(ddindx).rev_class_name := a2(indx);
953 t(ddindx).org_id := a3(indx);
954 ddindx := ddindx+1;
955 if a0.last =indx
956 then exit;
957 end if;
958 indx := a0.next(indx);
959 end loop;
960 end if;
961 end if;
962 end rosetta_table_copy_in_p14;
963 procedure rosetta_table_copy_out_p14(t cn_plan_element_pub.trx_factor_rec_tbl_type, a0 out nocopy JTF_VARCHAR2_TABLE_100
964 , a1 out nocopy JTF_NUMBER_TABLE
965 , a2 out nocopy JTF_VARCHAR2_TABLE_100
966 , a3 out nocopy JTF_NUMBER_TABLE
967 ) as
968 ddindx binary_integer; indx binary_integer;
969 begin
970 if t is null or t.count = 0 then
971 a0 := JTF_VARCHAR2_TABLE_100();
972 a1 := JTF_NUMBER_TABLE();
973 a2 := JTF_VARCHAR2_TABLE_100();
974 a3 := JTF_NUMBER_TABLE();
975 else
976 a0 := JTF_VARCHAR2_TABLE_100();
977 a1 := JTF_NUMBER_TABLE();
978 a2 := JTF_VARCHAR2_TABLE_100();
979 a3 := JTF_NUMBER_TABLE();
980 if t.count > 0 then
981 a0.extend(t.count);
982 a1.extend(t.count);
983 a2.extend(t.count);
984 a3.extend(t.count);
985 ddindx := t.first;
986 indx := 1;
987 while true loop
988 a0(indx) := t(ddindx).trx_type;
989 a1(indx) := t(ddindx).event_factor;
990 a2(indx) := t(ddindx).rev_class_name;
991 a3(indx) := t(ddindx).org_id;
992 indx := indx+1;
993 if t.last =ddindx
994 then exit;
995 end if;
996 ddindx := t.next(ddindx);
997 end loop;
998 end if;
999 end if;
1000 end rosetta_table_copy_out_p14;
1001
1002 procedure rosetta_table_copy_in_p18(t out nocopy cn_plan_element_pub.rt_quota_asgns_rec_tbl_type, a0 JTF_VARCHAR2_TABLE_100
1003 , a1 JTF_VARCHAR2_TABLE_100
1004 , a2 JTF_DATE_TABLE
1005 , a3 JTF_DATE_TABLE
1006 , a4 JTF_VARCHAR2_TABLE_100
1007 , a5 JTF_VARCHAR2_TABLE_200
1008 , a6 JTF_VARCHAR2_TABLE_200
1009 , a7 JTF_VARCHAR2_TABLE_200
1010 , a8 JTF_VARCHAR2_TABLE_200
1011 , a9 JTF_VARCHAR2_TABLE_200
1012 , a10 JTF_VARCHAR2_TABLE_200
1013 , a11 JTF_VARCHAR2_TABLE_200
1014 , a12 JTF_VARCHAR2_TABLE_200
1015 , a13 JTF_VARCHAR2_TABLE_200
1016 , a14 JTF_VARCHAR2_TABLE_200
1017 , a15 JTF_VARCHAR2_TABLE_200
1018 , a16 JTF_VARCHAR2_TABLE_200
1019 , a17 JTF_VARCHAR2_TABLE_200
1020 , a18 JTF_VARCHAR2_TABLE_200
1021 , a19 JTF_VARCHAR2_TABLE_200
1022 , a20 JTF_VARCHAR2_TABLE_100
1023 , a21 JTF_DATE_TABLE
1024 , a22 JTF_DATE_TABLE
1025 , a23 JTF_NUMBER_TABLE
1026 ) as
1027 ddindx binary_integer; indx binary_integer;
1028 begin
1029 if a0 is not null and a0.count > 0 then
1030 if a0.count > 0 then
1031 indx := a0.first;
1032 ddindx := 1;
1033 while true loop
1034 t(ddindx).rate_schedule_name := a0(indx);
1035 t(ddindx).calc_formula_name := a1(indx);
1036 t(ddindx).start_date := a2(indx);
1037 t(ddindx).end_date := a3(indx);
1038 t(ddindx).attribute_category := a4(indx);
1039 t(ddindx).attribute1 := a5(indx);
1040 t(ddindx).attribute2 := a6(indx);
1041 t(ddindx).attribute3 := a7(indx);
1042 t(ddindx).attribute4 := a8(indx);
1043 t(ddindx).attribute5 := a9(indx);
1044 t(ddindx).attribute6 := a10(indx);
1045 t(ddindx).attribute7 := a11(indx);
1046 t(ddindx).attribute8 := a12(indx);
1047 t(ddindx).attribute9 := a13(indx);
1048 t(ddindx).attribute10 := a14(indx);
1049 t(ddindx).attribute11 := a15(indx);
1050 t(ddindx).attribute12 := a16(indx);
1051 t(ddindx).attribute13 := a17(indx);
1052 t(ddindx).attribute14 := a18(indx);
1053 t(ddindx).attribute15 := a19(indx);
1054 t(ddindx).rate_schedule_name_old := a20(indx);
1055 t(ddindx).start_date_old := a21(indx);
1056 t(ddindx).end_date_old := a22(indx);
1057 t(ddindx).org_id := a23(indx);
1058 ddindx := ddindx+1;
1059 if a0.last =indx
1060 then exit;
1061 end if;
1062 indx := a0.next(indx);
1063 end loop;
1064 end if;
1065 end if;
1066 end rosetta_table_copy_in_p18;
1067 procedure rosetta_table_copy_out_p18(t cn_plan_element_pub.rt_quota_asgns_rec_tbl_type, a0 out nocopy JTF_VARCHAR2_TABLE_100
1068 , a1 out nocopy JTF_VARCHAR2_TABLE_100
1069 , a2 out nocopy JTF_DATE_TABLE
1070 , a3 out nocopy JTF_DATE_TABLE
1071 , a4 out nocopy JTF_VARCHAR2_TABLE_100
1072 , a5 out nocopy JTF_VARCHAR2_TABLE_200
1073 , a6 out nocopy JTF_VARCHAR2_TABLE_200
1074 , a7 out nocopy JTF_VARCHAR2_TABLE_200
1075 , a8 out nocopy JTF_VARCHAR2_TABLE_200
1076 , a9 out nocopy JTF_VARCHAR2_TABLE_200
1077 , a10 out nocopy JTF_VARCHAR2_TABLE_200
1078 , a11 out nocopy JTF_VARCHAR2_TABLE_200
1079 , a12 out nocopy JTF_VARCHAR2_TABLE_200
1080 , a13 out nocopy JTF_VARCHAR2_TABLE_200
1081 , a14 out nocopy JTF_VARCHAR2_TABLE_200
1082 , a15 out nocopy JTF_VARCHAR2_TABLE_200
1083 , a16 out nocopy JTF_VARCHAR2_TABLE_200
1084 , a17 out nocopy JTF_VARCHAR2_TABLE_200
1085 , a18 out nocopy JTF_VARCHAR2_TABLE_200
1086 , a19 out nocopy JTF_VARCHAR2_TABLE_200
1087 , a20 out nocopy JTF_VARCHAR2_TABLE_100
1088 , a21 out nocopy JTF_DATE_TABLE
1089 , a22 out nocopy JTF_DATE_TABLE
1090 , a23 out nocopy JTF_NUMBER_TABLE
1091 ) as
1092 ddindx binary_integer; indx binary_integer;
1093 begin
1094 if t is null or t.count = 0 then
1095 a0 := JTF_VARCHAR2_TABLE_100();
1096 a1 := JTF_VARCHAR2_TABLE_100();
1097 a2 := JTF_DATE_TABLE();
1098 a3 := JTF_DATE_TABLE();
1099 a4 := JTF_VARCHAR2_TABLE_100();
1100 a5 := JTF_VARCHAR2_TABLE_200();
1101 a6 := JTF_VARCHAR2_TABLE_200();
1102 a7 := JTF_VARCHAR2_TABLE_200();
1103 a8 := JTF_VARCHAR2_TABLE_200();
1104 a9 := JTF_VARCHAR2_TABLE_200();
1105 a10 := JTF_VARCHAR2_TABLE_200();
1106 a11 := JTF_VARCHAR2_TABLE_200();
1107 a12 := JTF_VARCHAR2_TABLE_200();
1108 a13 := JTF_VARCHAR2_TABLE_200();
1109 a14 := JTF_VARCHAR2_TABLE_200();
1110 a15 := JTF_VARCHAR2_TABLE_200();
1111 a16 := JTF_VARCHAR2_TABLE_200();
1112 a17 := JTF_VARCHAR2_TABLE_200();
1113 a18 := JTF_VARCHAR2_TABLE_200();
1114 a19 := JTF_VARCHAR2_TABLE_200();
1115 a20 := JTF_VARCHAR2_TABLE_100();
1116 a21 := JTF_DATE_TABLE();
1117 a22 := JTF_DATE_TABLE();
1118 a23 := JTF_NUMBER_TABLE();
1119 else
1120 a0 := JTF_VARCHAR2_TABLE_100();
1121 a1 := JTF_VARCHAR2_TABLE_100();
1122 a2 := JTF_DATE_TABLE();
1123 a3 := JTF_DATE_TABLE();
1124 a4 := JTF_VARCHAR2_TABLE_100();
1125 a5 := JTF_VARCHAR2_TABLE_200();
1126 a6 := JTF_VARCHAR2_TABLE_200();
1127 a7 := JTF_VARCHAR2_TABLE_200();
1128 a8 := JTF_VARCHAR2_TABLE_200();
1129 a9 := JTF_VARCHAR2_TABLE_200();
1130 a10 := JTF_VARCHAR2_TABLE_200();
1131 a11 := JTF_VARCHAR2_TABLE_200();
1132 a12 := JTF_VARCHAR2_TABLE_200();
1133 a13 := JTF_VARCHAR2_TABLE_200();
1134 a14 := JTF_VARCHAR2_TABLE_200();
1135 a15 := JTF_VARCHAR2_TABLE_200();
1136 a16 := JTF_VARCHAR2_TABLE_200();
1137 a17 := JTF_VARCHAR2_TABLE_200();
1138 a18 := JTF_VARCHAR2_TABLE_200();
1139 a19 := JTF_VARCHAR2_TABLE_200();
1140 a20 := JTF_VARCHAR2_TABLE_100();
1141 a21 := JTF_DATE_TABLE();
1142 a22 := JTF_DATE_TABLE();
1143 a23 := JTF_NUMBER_TABLE();
1144 if t.count > 0 then
1145 a0.extend(t.count);
1146 a1.extend(t.count);
1147 a2.extend(t.count);
1148 a3.extend(t.count);
1149 a4.extend(t.count);
1150 a5.extend(t.count);
1151 a6.extend(t.count);
1152 a7.extend(t.count);
1153 a8.extend(t.count);
1154 a9.extend(t.count);
1155 a10.extend(t.count);
1156 a11.extend(t.count);
1157 a12.extend(t.count);
1158 a13.extend(t.count);
1159 a14.extend(t.count);
1160 a15.extend(t.count);
1161 a16.extend(t.count);
1162 a17.extend(t.count);
1163 a18.extend(t.count);
1164 a19.extend(t.count);
1165 a20.extend(t.count);
1166 a21.extend(t.count);
1167 a22.extend(t.count);
1168 a23.extend(t.count);
1169 ddindx := t.first;
1170 indx := 1;
1171 while true loop
1172 a0(indx) := t(ddindx).rate_schedule_name;
1173 a1(indx) := t(ddindx).calc_formula_name;
1174 a2(indx) := t(ddindx).start_date;
1175 a3(indx) := t(ddindx).end_date;
1176 a4(indx) := t(ddindx).attribute_category;
1177 a5(indx) := t(ddindx).attribute1;
1178 a6(indx) := t(ddindx).attribute2;
1179 a7(indx) := t(ddindx).attribute3;
1180 a8(indx) := t(ddindx).attribute4;
1181 a9(indx) := t(ddindx).attribute5;
1182 a10(indx) := t(ddindx).attribute6;
1183 a11(indx) := t(ddindx).attribute7;
1184 a12(indx) := t(ddindx).attribute8;
1185 a13(indx) := t(ddindx).attribute9;
1186 a14(indx) := t(ddindx).attribute10;
1187 a15(indx) := t(ddindx).attribute11;
1188 a16(indx) := t(ddindx).attribute12;
1189 a17(indx) := t(ddindx).attribute13;
1190 a18(indx) := t(ddindx).attribute14;
1191 a19(indx) := t(ddindx).attribute15;
1192 a20(indx) := t(ddindx).rate_schedule_name_old;
1193 a21(indx) := t(ddindx).start_date_old;
1194 a22(indx) := t(ddindx).end_date_old;
1195 a23(indx) := t(ddindx).org_id;
1196 indx := indx+1;
1197 if t.last =ddindx
1198 then exit;
1199 end if;
1200 ddindx := t.next(ddindx);
1201 end loop;
1202 end if;
1203 end if;
1204 end rosetta_table_copy_out_p18;
1205
1206 procedure create_plan_element(p_api_version NUMBER
1207 , p_init_msg_list VARCHAR2
1208 , p_commit VARCHAR2
1209 , p_validation_level NUMBER
1210 , x_return_status out nocopy VARCHAR2
1211 , x_msg_count out nocopy NUMBER
1212 , x_msg_data out nocopy VARCHAR2
1213 , p7_a0 VARCHAR2
1214 , p7_a1 VARCHAR2
1215 , p7_a2 VARCHAR2
1216 , p7_a3 VARCHAR2
1217 , p7_a4 NUMBER
1218 , p7_a5 VARCHAR2
1219 , p7_a6 VARCHAR2
1220 , p7_a7 VARCHAR2
1221 , p7_a8 VARCHAR2
1222 , p7_a9 VARCHAR2
1223 , p7_a10 NUMBER
1224 , p7_a11 NUMBER
1225 , p7_a12 DATE
1226 , p7_a13 DATE
1227 , p7_a14 VARCHAR2
1228 , p7_a15 VARCHAR2
1229 , p7_a16 VARCHAR2
1230 , p7_a17 VARCHAR2
1231 , p7_a18 VARCHAR2
1232 , p7_a19 NUMBER
1233 , p7_a20 NUMBER
1234 , p7_a21 VARCHAR2
1235 , p7_a22 VARCHAR2
1236 , p7_a23 VARCHAR2
1237 , p7_a24 VARCHAR2
1238 , p7_a25 VARCHAR2
1239 , p7_a26 VARCHAR2
1240 , p7_a27 VARCHAR2
1241 , p7_a28 VARCHAR2
1242 , p7_a29 VARCHAR2
1243 , p7_a30 VARCHAR2
1244 , p7_a31 VARCHAR2
1245 , p7_a32 VARCHAR2
1246 , p7_a33 VARCHAR2
1247 , p7_a34 VARCHAR2
1248 , p7_a35 VARCHAR2
1249 , p7_a36 VARCHAR2
1250 , p7_a37 VARCHAR2
1251 , p7_a38 VARCHAR2
1252 , p7_a39 NUMBER
1253 , p7_a40 NUMBER
1254 , p7_a41 VARCHAR2
1255 , p7_a42 VARCHAR2
1256 , p8_a0 JTF_VARCHAR2_TABLE_100
1257 , p8_a1 JTF_NUMBER_TABLE
1258 , p8_a2 JTF_NUMBER_TABLE
1259 , p8_a3 JTF_NUMBER_TABLE
1260 , p8_a4 JTF_VARCHAR2_TABLE_1900
1261 , p8_a5 JTF_VARCHAR2_TABLE_100
1262 , p8_a6 JTF_VARCHAR2_TABLE_200
1263 , p8_a7 JTF_VARCHAR2_TABLE_200
1264 , p8_a8 JTF_VARCHAR2_TABLE_200
1265 , p8_a9 JTF_VARCHAR2_TABLE_200
1266 , p8_a10 JTF_VARCHAR2_TABLE_200
1267 , p8_a11 JTF_VARCHAR2_TABLE_200
1268 , p8_a12 JTF_VARCHAR2_TABLE_200
1269 , p8_a13 JTF_VARCHAR2_TABLE_200
1270 , p8_a14 JTF_VARCHAR2_TABLE_200
1271 , p8_a15 JTF_VARCHAR2_TABLE_200
1272 , p8_a16 JTF_VARCHAR2_TABLE_200
1273 , p8_a17 JTF_VARCHAR2_TABLE_200
1274 , p8_a18 JTF_VARCHAR2_TABLE_200
1275 , p8_a19 JTF_VARCHAR2_TABLE_200
1276 , p8_a20 JTF_VARCHAR2_TABLE_200
1277 , p8_a21 JTF_VARCHAR2_TABLE_100
1278 , p8_a22 JTF_NUMBER_TABLE
1279 , p9_a0 JTF_VARCHAR2_TABLE_100
1280 , p9_a1 JTF_DATE_TABLE
1281 , p9_a2 JTF_DATE_TABLE
1282 , p9_a3 JTF_NUMBER_TABLE
1283 , p9_a4 JTF_NUMBER_TABLE
1284 , p9_a5 JTF_VARCHAR2_TABLE_100
1285 , p9_a6 JTF_VARCHAR2_TABLE_200
1286 , p9_a7 JTF_VARCHAR2_TABLE_200
1287 , p9_a8 JTF_VARCHAR2_TABLE_200
1288 , p9_a9 JTF_VARCHAR2_TABLE_200
1289 , p9_a10 JTF_VARCHAR2_TABLE_200
1290 , p9_a11 JTF_VARCHAR2_TABLE_200
1291 , p9_a12 JTF_VARCHAR2_TABLE_200
1292 , p9_a13 JTF_VARCHAR2_TABLE_200
1293 , p9_a14 JTF_VARCHAR2_TABLE_200
1294 , p9_a15 JTF_VARCHAR2_TABLE_200
1295 , p9_a16 JTF_VARCHAR2_TABLE_200
1296 , p9_a17 JTF_VARCHAR2_TABLE_200
1297 , p9_a18 JTF_VARCHAR2_TABLE_200
1298 , p9_a19 JTF_VARCHAR2_TABLE_200
1299 , p9_a20 JTF_VARCHAR2_TABLE_200
1300 , p9_a21 JTF_VARCHAR2_TABLE_100
1301 , p9_a22 JTF_DATE_TABLE
1302 , p9_a23 JTF_DATE_TABLE
1303 , p9_a24 JTF_NUMBER_TABLE
1304 , p9_a25 JTF_NUMBER_TABLE
1305 , p10_a0 JTF_VARCHAR2_TABLE_100
1306 , p10_a1 JTF_NUMBER_TABLE
1307 , p10_a2 JTF_VARCHAR2_TABLE_100
1308 , p10_a3 JTF_NUMBER_TABLE
1309 , p11_a0 JTF_VARCHAR2_TABLE_100
1310 , p11_a1 JTF_NUMBER_TABLE
1311 , p11_a2 JTF_NUMBER_TABLE
1312 , p11_a3 JTF_NUMBER_TABLE
1313 , p11_a4 JTF_VARCHAR2_TABLE_200
1314 , p11_a5 JTF_VARCHAR2_TABLE_200
1315 , p11_a6 JTF_VARCHAR2_TABLE_200
1316 , p11_a7 JTF_VARCHAR2_TABLE_200
1317 , p11_a8 JTF_VARCHAR2_TABLE_200
1318 , p11_a9 JTF_VARCHAR2_TABLE_200
1319 , p11_a10 JTF_VARCHAR2_TABLE_200
1320 , p11_a11 JTF_VARCHAR2_TABLE_200
1321 , p11_a12 JTF_VARCHAR2_TABLE_200
1322 , p11_a13 JTF_VARCHAR2_TABLE_200
1323 , p11_a14 JTF_VARCHAR2_TABLE_200
1324 , p11_a15 JTF_VARCHAR2_TABLE_200
1325 , p11_a16 JTF_VARCHAR2_TABLE_200
1326 , p11_a17 JTF_VARCHAR2_TABLE_200
1327 , p11_a18 JTF_VARCHAR2_TABLE_200
1328 , p11_a19 JTF_VARCHAR2_TABLE_100
1329 , p11_a20 JTF_NUMBER_TABLE
1330 , p12_a0 JTF_VARCHAR2_TABLE_100
1331 , p12_a1 JTF_VARCHAR2_TABLE_100
1332 , p12_a2 JTF_DATE_TABLE
1333 , p12_a3 JTF_DATE_TABLE
1334 , p12_a4 JTF_VARCHAR2_TABLE_100
1335 , p12_a5 JTF_VARCHAR2_TABLE_200
1336 , p12_a6 JTF_VARCHAR2_TABLE_200
1337 , p12_a7 JTF_VARCHAR2_TABLE_200
1338 , p12_a8 JTF_VARCHAR2_TABLE_200
1339 , p12_a9 JTF_VARCHAR2_TABLE_200
1340 , p12_a10 JTF_VARCHAR2_TABLE_200
1341 , p12_a11 JTF_VARCHAR2_TABLE_200
1342 , p12_a12 JTF_VARCHAR2_TABLE_200
1343 , p12_a13 JTF_VARCHAR2_TABLE_200
1344 , p12_a14 JTF_VARCHAR2_TABLE_200
1345 , p12_a15 JTF_VARCHAR2_TABLE_200
1346 , p12_a16 JTF_VARCHAR2_TABLE_200
1347 , p12_a17 JTF_VARCHAR2_TABLE_200
1348 , p12_a18 JTF_VARCHAR2_TABLE_200
1349 , p12_a19 JTF_VARCHAR2_TABLE_200
1350 , p12_a20 JTF_VARCHAR2_TABLE_100
1351 , p12_a21 JTF_DATE_TABLE
1352 , p12_a22 JTF_DATE_TABLE
1353 , p12_a23 JTF_NUMBER_TABLE
1354 , x_loading_status out nocopy VARCHAR2
1355 , p_is_duplicate VARCHAR2
1356 )
1357
1358 as
1359 ddp_plan_element_rec cn_plan_element_pub.plan_element_rec_type;
1360 ddp_revenue_class_rec_tbl cn_plan_element_pub.revenue_class_rec_tbl_type;
1361 ddp_rev_uplift_rec_tbl cn_plan_element_pub.rev_uplift_rec_tbl_type;
1362 ddp_trx_factor_rec_tbl cn_plan_element_pub.trx_factor_rec_tbl_type;
1363 ddp_period_quotas_rec_tbl cn_plan_element_pub.period_quotas_rec_tbl_type;
1364 ddp_rt_quota_asgns_rec_tbl cn_plan_element_pub.rt_quota_asgns_rec_tbl_type;
1365 ddindx binary_integer; indx binary_integer;
1366 begin
1367
1368 -- copy data to the local IN or IN-OUT args, if any
1369
1370
1371
1372
1373
1374
1375
1376 ddp_plan_element_rec.name := p7_a0;
1377 ddp_plan_element_rec.description := p7_a1;
1378 ddp_plan_element_rec.period_type := p7_a2;
1379 ddp_plan_element_rec.element_type := p7_a3;
1380 ddp_plan_element_rec.target := p7_a4;
1381 ddp_plan_element_rec.incentive_type := p7_a5;
1382 ddp_plan_element_rec.credit_type := p7_a6;
1383 ddp_plan_element_rec.calc_formula_name := p7_a7;
1384 ddp_plan_element_rec.rt_sched_custom_flag := p7_a8;
1385 ddp_plan_element_rec.package_name := p7_a9;
1386 ddp_plan_element_rec.performance_goal := p7_a10;
1387 ddp_plan_element_rec.payment_amount := p7_a11;
1388 ddp_plan_element_rec.start_date := p7_a12;
1389 ddp_plan_element_rec.end_date := p7_a13;
1390 ddp_plan_element_rec.status := p7_a14;
1391 ddp_plan_element_rec.interval_name := p7_a15;
1392 ddp_plan_element_rec.payee_assign_flag := p7_a16;
1393 ddp_plan_element_rec.vesting_flag := p7_a17;
1394 ddp_plan_element_rec.addup_from_rev_class_flag := p7_a18;
1395 ddp_plan_element_rec.expense_account_id := p7_a19;
1396 ddp_plan_element_rec.liability_account_id := p7_a20;
1397 ddp_plan_element_rec.quota_group_code := p7_a21;
1398 ddp_plan_element_rec.payment_group_code := p7_a22;
1399 ddp_plan_element_rec.attribute_category := p7_a23;
1400 ddp_plan_element_rec.attribute1 := p7_a24;
1401 ddp_plan_element_rec.attribute2 := p7_a25;
1402 ddp_plan_element_rec.attribute3 := p7_a26;
1403 ddp_plan_element_rec.attribute4 := p7_a27;
1404 ddp_plan_element_rec.attribute5 := p7_a28;
1405 ddp_plan_element_rec.attribute6 := p7_a29;
1406 ddp_plan_element_rec.attribute7 := p7_a30;
1407 ddp_plan_element_rec.attribute8 := p7_a31;
1408 ddp_plan_element_rec.attribute9 := p7_a32;
1409 ddp_plan_element_rec.attribute10 := p7_a33;
1410 ddp_plan_element_rec.attribute11 := p7_a34;
1411 ddp_plan_element_rec.attribute12 := p7_a35;
1412 ddp_plan_element_rec.attribute13 := p7_a36;
1413 ddp_plan_element_rec.attribute14 := p7_a37;
1414 ddp_plan_element_rec.attribute15 := p7_a38;
1415 ddp_plan_element_rec.org_id := p7_a39;
1416 ddp_plan_element_rec.quota_id := p7_a40;
1417 ddp_plan_element_rec.indirect_credit := p7_a41;
1418 ddp_plan_element_rec.sreps_enddated_flag := p7_a42;
1419
1420 cn_plan_element_pub_w.rosetta_table_copy_in_p8(ddp_revenue_class_rec_tbl, p8_a0
1421 , p8_a1
1422 , p8_a2
1423 , p8_a3
1424 , p8_a4
1425 , p8_a5
1426 , p8_a6
1427 , p8_a7
1428 , p8_a8
1429 , p8_a9
1430 , p8_a10
1431 , p8_a11
1432 , p8_a12
1433 , p8_a13
1434 , p8_a14
1435 , p8_a15
1436 , p8_a16
1437 , p8_a17
1438 , p8_a18
1439 , p8_a19
1440 , p8_a20
1441 , p8_a21
1442 , p8_a22
1443 );
1444
1445 cn_plan_element_pub_w.rosetta_table_copy_in_p11(ddp_rev_uplift_rec_tbl, p9_a0
1446 , p9_a1
1447 , p9_a2
1448 , p9_a3
1449 , p9_a4
1450 , p9_a5
1451 , p9_a6
1452 , p9_a7
1453 , p9_a8
1454 , p9_a9
1455 , p9_a10
1456 , p9_a11
1457 , p9_a12
1458 , p9_a13
1459 , p9_a14
1460 , p9_a15
1461 , p9_a16
1462 , p9_a17
1463 , p9_a18
1464 , p9_a19
1465 , p9_a20
1466 , p9_a21
1467 , p9_a22
1468 , p9_a23
1469 , p9_a24
1470 , p9_a25
1471 );
1472
1473 cn_plan_element_pub_w.rosetta_table_copy_in_p14(ddp_trx_factor_rec_tbl, p10_a0
1474 , p10_a1
1475 , p10_a2
1476 , p10_a3
1477 );
1478
1479 cn_plan_element_pub_w.rosetta_table_copy_in_p5(ddp_period_quotas_rec_tbl, p11_a0
1480 , p11_a1
1481 , p11_a2
1482 , p11_a3
1483 , p11_a4
1484 , p11_a5
1485 , p11_a6
1486 , p11_a7
1487 , p11_a8
1488 , p11_a9
1489 , p11_a10
1490 , p11_a11
1491 , p11_a12
1492 , p11_a13
1493 , p11_a14
1494 , p11_a15
1495 , p11_a16
1496 , p11_a17
1497 , p11_a18
1498 , p11_a19
1499 , p11_a20
1500 );
1501
1502 cn_plan_element_pub_w.rosetta_table_copy_in_p18(ddp_rt_quota_asgns_rec_tbl, p12_a0
1503 , p12_a1
1504 , p12_a2
1505 , p12_a3
1506 , p12_a4
1507 , p12_a5
1508 , p12_a6
1509 , p12_a7
1510 , p12_a8
1511 , p12_a9
1512 , p12_a10
1513 , p12_a11
1514 , p12_a12
1515 , p12_a13
1516 , p12_a14
1517 , p12_a15
1518 , p12_a16
1519 , p12_a17
1520 , p12_a18
1521 , p12_a19
1522 , p12_a20
1523 , p12_a21
1524 , p12_a22
1525 , p12_a23
1526 );
1527
1528
1529
1530 -- here's the delegated call to the old PL/SQL routine
1531 cn_plan_element_pub.create_plan_element(p_api_version,
1532 p_init_msg_list,
1533 p_commit,
1534 p_validation_level,
1535 x_return_status,
1536 x_msg_count,
1537 x_msg_data,
1538 ddp_plan_element_rec,
1539 ddp_revenue_class_rec_tbl,
1540 ddp_rev_uplift_rec_tbl,
1541 ddp_trx_factor_rec_tbl,
1542 ddp_period_quotas_rec_tbl,
1543 ddp_rt_quota_asgns_rec_tbl,
1544 x_loading_status,
1545 p_is_duplicate);
1546
1547 -- copy data back from the local variables to OUT or IN-OUT args, if any
1548
1549
1550
1551
1552
1553
1554
1555
1556
1557
1558
1559
1560
1561
1562 end;
1563
1564 procedure update_plan_element(p_api_version NUMBER
1565 , p_init_msg_list VARCHAR2
1566 , p_commit VARCHAR2
1567 , p_validation_level NUMBER
1568 , x_return_status out nocopy VARCHAR2
1569 , x_msg_count out nocopy NUMBER
1570 , x_msg_data out nocopy VARCHAR2
1571 , p7_a0 VARCHAR2
1572 , p7_a1 VARCHAR2
1573 , p7_a2 VARCHAR2
1574 , p7_a3 VARCHAR2
1575 , p7_a4 NUMBER
1576 , p7_a5 VARCHAR2
1577 , p7_a6 VARCHAR2
1578 , p7_a7 VARCHAR2
1579 , p7_a8 VARCHAR2
1580 , p7_a9 VARCHAR2
1581 , p7_a10 NUMBER
1582 , p7_a11 NUMBER
1583 , p7_a12 DATE
1584 , p7_a13 DATE
1585 , p7_a14 VARCHAR2
1586 , p7_a15 VARCHAR2
1587 , p7_a16 VARCHAR2
1588 , p7_a17 VARCHAR2
1589 , p7_a18 VARCHAR2
1590 , p7_a19 NUMBER
1591 , p7_a20 NUMBER
1592 , p7_a21 VARCHAR2
1593 , p7_a22 VARCHAR2
1594 , p7_a23 VARCHAR2
1595 , p7_a24 VARCHAR2
1596 , p7_a25 VARCHAR2
1597 , p7_a26 VARCHAR2
1598 , p7_a27 VARCHAR2
1599 , p7_a28 VARCHAR2
1600 , p7_a29 VARCHAR2
1601 , p7_a30 VARCHAR2
1602 , p7_a31 VARCHAR2
1603 , p7_a32 VARCHAR2
1604 , p7_a33 VARCHAR2
1605 , p7_a34 VARCHAR2
1606 , p7_a35 VARCHAR2
1607 , p7_a36 VARCHAR2
1608 , p7_a37 VARCHAR2
1609 , p7_a38 VARCHAR2
1610 , p7_a39 NUMBER
1611 , p7_a40 NUMBER
1612 , p7_a41 VARCHAR2
1613 , p7_a42 VARCHAR2
1614 , p_quota_name_old VARCHAR2
1615 , p9_a0 JTF_VARCHAR2_TABLE_100
1616 , p9_a1 JTF_NUMBER_TABLE
1617 , p9_a2 JTF_NUMBER_TABLE
1618 , p9_a3 JTF_NUMBER_TABLE
1619 , p9_a4 JTF_VARCHAR2_TABLE_1900
1620 , p9_a5 JTF_VARCHAR2_TABLE_100
1621 , p9_a6 JTF_VARCHAR2_TABLE_200
1622 , p9_a7 JTF_VARCHAR2_TABLE_200
1623 , p9_a8 JTF_VARCHAR2_TABLE_200
1624 , p9_a9 JTF_VARCHAR2_TABLE_200
1625 , p9_a10 JTF_VARCHAR2_TABLE_200
1626 , p9_a11 JTF_VARCHAR2_TABLE_200
1627 , p9_a12 JTF_VARCHAR2_TABLE_200
1628 , p9_a13 JTF_VARCHAR2_TABLE_200
1629 , p9_a14 JTF_VARCHAR2_TABLE_200
1630 , p9_a15 JTF_VARCHAR2_TABLE_200
1631 , p9_a16 JTF_VARCHAR2_TABLE_200
1632 , p9_a17 JTF_VARCHAR2_TABLE_200
1633 , p9_a18 JTF_VARCHAR2_TABLE_200
1634 , p9_a19 JTF_VARCHAR2_TABLE_200
1635 , p9_a20 JTF_VARCHAR2_TABLE_200
1636 , p9_a21 JTF_VARCHAR2_TABLE_100
1637 , p9_a22 JTF_NUMBER_TABLE
1638 , p10_a0 JTF_VARCHAR2_TABLE_100
1639 , p10_a1 JTF_DATE_TABLE
1640 , p10_a2 JTF_DATE_TABLE
1641 , p10_a3 JTF_NUMBER_TABLE
1642 , p10_a4 JTF_NUMBER_TABLE
1643 , p10_a5 JTF_VARCHAR2_TABLE_100
1644 , p10_a6 JTF_VARCHAR2_TABLE_200
1645 , p10_a7 JTF_VARCHAR2_TABLE_200
1646 , p10_a8 JTF_VARCHAR2_TABLE_200
1647 , p10_a9 JTF_VARCHAR2_TABLE_200
1648 , p10_a10 JTF_VARCHAR2_TABLE_200
1649 , p10_a11 JTF_VARCHAR2_TABLE_200
1650 , p10_a12 JTF_VARCHAR2_TABLE_200
1651 , p10_a13 JTF_VARCHAR2_TABLE_200
1652 , p10_a14 JTF_VARCHAR2_TABLE_200
1653 , p10_a15 JTF_VARCHAR2_TABLE_200
1654 , p10_a16 JTF_VARCHAR2_TABLE_200
1655 , p10_a17 JTF_VARCHAR2_TABLE_200
1656 , p10_a18 JTF_VARCHAR2_TABLE_200
1657 , p10_a19 JTF_VARCHAR2_TABLE_200
1658 , p10_a20 JTF_VARCHAR2_TABLE_200
1659 , p10_a21 JTF_VARCHAR2_TABLE_100
1660 , p10_a22 JTF_DATE_TABLE
1661 , p10_a23 JTF_DATE_TABLE
1662 , p10_a24 JTF_NUMBER_TABLE
1663 , p10_a25 JTF_NUMBER_TABLE
1664 , p11_a0 JTF_VARCHAR2_TABLE_100
1665 , p11_a1 JTF_NUMBER_TABLE
1666 , p11_a2 JTF_VARCHAR2_TABLE_100
1667 , p11_a3 JTF_NUMBER_TABLE
1668 , p12_a0 JTF_VARCHAR2_TABLE_100
1669 , p12_a1 JTF_NUMBER_TABLE
1670 , p12_a2 JTF_NUMBER_TABLE
1671 , p12_a3 JTF_NUMBER_TABLE
1672 , p12_a4 JTF_VARCHAR2_TABLE_200
1673 , p12_a5 JTF_VARCHAR2_TABLE_200
1674 , p12_a6 JTF_VARCHAR2_TABLE_200
1675 , p12_a7 JTF_VARCHAR2_TABLE_200
1676 , p12_a8 JTF_VARCHAR2_TABLE_200
1677 , p12_a9 JTF_VARCHAR2_TABLE_200
1678 , p12_a10 JTF_VARCHAR2_TABLE_200
1679 , p12_a11 JTF_VARCHAR2_TABLE_200
1680 , p12_a12 JTF_VARCHAR2_TABLE_200
1681 , p12_a13 JTF_VARCHAR2_TABLE_200
1682 , p12_a14 JTF_VARCHAR2_TABLE_200
1683 , p12_a15 JTF_VARCHAR2_TABLE_200
1684 , p12_a16 JTF_VARCHAR2_TABLE_200
1685 , p12_a17 JTF_VARCHAR2_TABLE_200
1686 , p12_a18 JTF_VARCHAR2_TABLE_200
1687 , p12_a19 JTF_VARCHAR2_TABLE_100
1688 , p12_a20 JTF_NUMBER_TABLE
1689 , p13_a0 JTF_VARCHAR2_TABLE_100
1690 , p13_a1 JTF_VARCHAR2_TABLE_100
1691 , p13_a2 JTF_DATE_TABLE
1692 , p13_a3 JTF_DATE_TABLE
1693 , p13_a4 JTF_VARCHAR2_TABLE_100
1694 , p13_a5 JTF_VARCHAR2_TABLE_200
1695 , p13_a6 JTF_VARCHAR2_TABLE_200
1696 , p13_a7 JTF_VARCHAR2_TABLE_200
1697 , p13_a8 JTF_VARCHAR2_TABLE_200
1698 , p13_a9 JTF_VARCHAR2_TABLE_200
1699 , p13_a10 JTF_VARCHAR2_TABLE_200
1700 , p13_a11 JTF_VARCHAR2_TABLE_200
1701 , p13_a12 JTF_VARCHAR2_TABLE_200
1702 , p13_a13 JTF_VARCHAR2_TABLE_200
1703 , p13_a14 JTF_VARCHAR2_TABLE_200
1704 , p13_a15 JTF_VARCHAR2_TABLE_200
1705 , p13_a16 JTF_VARCHAR2_TABLE_200
1706 , p13_a17 JTF_VARCHAR2_TABLE_200
1707 , p13_a18 JTF_VARCHAR2_TABLE_200
1708 , p13_a19 JTF_VARCHAR2_TABLE_200
1709 , p13_a20 JTF_VARCHAR2_TABLE_100
1710 , p13_a21 JTF_DATE_TABLE
1711 , p13_a22 JTF_DATE_TABLE
1712 , p13_a23 JTF_NUMBER_TABLE
1713 , x_loading_status out nocopy VARCHAR2
1714 )
1715
1716 as
1717 ddp_new_plan_element_rec cn_plan_element_pub.plan_element_rec_type;
1718 ddp_revenue_class_rec_tbl cn_plan_element_pub.revenue_class_rec_tbl_type;
1719 ddp_rev_uplift_rec_tbl cn_plan_element_pub.rev_uplift_rec_tbl_type;
1720 ddp_trx_factor_rec_tbl cn_plan_element_pub.trx_factor_rec_tbl_type;
1721 ddp_period_quotas_rec_tbl cn_plan_element_pub.period_quotas_rec_tbl_type;
1722 ddp_rt_quota_asgns_rec_tbl cn_plan_element_pub.rt_quota_asgns_rec_tbl_type;
1723 ddindx binary_integer; indx binary_integer;
1724 begin
1725
1726 -- copy data to the local IN or IN-OUT args, if any
1727
1728
1729
1730
1731
1732
1733
1734 ddp_new_plan_element_rec.name := p7_a0;
1735 ddp_new_plan_element_rec.description := p7_a1;
1736 ddp_new_plan_element_rec.period_type := p7_a2;
1737 ddp_new_plan_element_rec.element_type := p7_a3;
1738 ddp_new_plan_element_rec.target := p7_a4;
1739 ddp_new_plan_element_rec.incentive_type := p7_a5;
1740 ddp_new_plan_element_rec.credit_type := p7_a6;
1741 ddp_new_plan_element_rec.calc_formula_name := p7_a7;
1742 ddp_new_plan_element_rec.rt_sched_custom_flag := p7_a8;
1743 ddp_new_plan_element_rec.package_name := p7_a9;
1744 ddp_new_plan_element_rec.performance_goal := p7_a10;
1745 ddp_new_plan_element_rec.payment_amount := p7_a11;
1746 ddp_new_plan_element_rec.start_date := p7_a12;
1747 ddp_new_plan_element_rec.end_date := p7_a13;
1748 ddp_new_plan_element_rec.status := p7_a14;
1749 ddp_new_plan_element_rec.interval_name := p7_a15;
1750 ddp_new_plan_element_rec.payee_assign_flag := p7_a16;
1751 ddp_new_plan_element_rec.vesting_flag := p7_a17;
1752 ddp_new_plan_element_rec.addup_from_rev_class_flag := p7_a18;
1753 ddp_new_plan_element_rec.expense_account_id := p7_a19;
1754 ddp_new_plan_element_rec.liability_account_id := p7_a20;
1755 ddp_new_plan_element_rec.quota_group_code := p7_a21;
1756 ddp_new_plan_element_rec.payment_group_code := p7_a22;
1757 ddp_new_plan_element_rec.attribute_category := p7_a23;
1758 ddp_new_plan_element_rec.attribute1 := p7_a24;
1759 ddp_new_plan_element_rec.attribute2 := p7_a25;
1760 ddp_new_plan_element_rec.attribute3 := p7_a26;
1761 ddp_new_plan_element_rec.attribute4 := p7_a27;
1762 ddp_new_plan_element_rec.attribute5 := p7_a28;
1763 ddp_new_plan_element_rec.attribute6 := p7_a29;
1764 ddp_new_plan_element_rec.attribute7 := p7_a30;
1765 ddp_new_plan_element_rec.attribute8 := p7_a31;
1766 ddp_new_plan_element_rec.attribute9 := p7_a32;
1767 ddp_new_plan_element_rec.attribute10 := p7_a33;
1768 ddp_new_plan_element_rec.attribute11 := p7_a34;
1769 ddp_new_plan_element_rec.attribute12 := p7_a35;
1770 ddp_new_plan_element_rec.attribute13 := p7_a36;
1771 ddp_new_plan_element_rec.attribute14 := p7_a37;
1772 ddp_new_plan_element_rec.attribute15 := p7_a38;
1773 ddp_new_plan_element_rec.org_id := p7_a39;
1774 ddp_new_plan_element_rec.quota_id := p7_a40;
1775 ddp_new_plan_element_rec.indirect_credit := p7_a41;
1776 ddp_new_plan_element_rec.sreps_enddated_flag := p7_a42;
1777
1778
1779 cn_plan_element_pub_w.rosetta_table_copy_in_p8(ddp_revenue_class_rec_tbl, p9_a0
1780 , p9_a1
1781 , p9_a2
1782 , p9_a3
1783 , p9_a4
1784 , p9_a5
1785 , p9_a6
1786 , p9_a7
1787 , p9_a8
1788 , p9_a9
1789 , p9_a10
1790 , p9_a11
1791 , p9_a12
1792 , p9_a13
1793 , p9_a14
1794 , p9_a15
1795 , p9_a16
1796 , p9_a17
1797 , p9_a18
1798 , p9_a19
1799 , p9_a20
1800 , p9_a21
1801 , p9_a22
1802 );
1803
1804 cn_plan_element_pub_w.rosetta_table_copy_in_p11(ddp_rev_uplift_rec_tbl, p10_a0
1805 , p10_a1
1806 , p10_a2
1807 , p10_a3
1808 , p10_a4
1809 , p10_a5
1810 , p10_a6
1811 , p10_a7
1812 , p10_a8
1813 , p10_a9
1814 , p10_a10
1815 , p10_a11
1816 , p10_a12
1817 , p10_a13
1818 , p10_a14
1819 , p10_a15
1820 , p10_a16
1821 , p10_a17
1822 , p10_a18
1823 , p10_a19
1824 , p10_a20
1825 , p10_a21
1826 , p10_a22
1827 , p10_a23
1828 , p10_a24
1829 , p10_a25
1830 );
1831
1832 cn_plan_element_pub_w.rosetta_table_copy_in_p14(ddp_trx_factor_rec_tbl, p11_a0
1833 , p11_a1
1834 , p11_a2
1835 , p11_a3
1836 );
1837
1838 cn_plan_element_pub_w.rosetta_table_copy_in_p5(ddp_period_quotas_rec_tbl, p12_a0
1839 , p12_a1
1840 , p12_a2
1841 , p12_a3
1842 , p12_a4
1843 , p12_a5
1844 , p12_a6
1845 , p12_a7
1846 , p12_a8
1847 , p12_a9
1848 , p12_a10
1849 , p12_a11
1850 , p12_a12
1851 , p12_a13
1852 , p12_a14
1853 , p12_a15
1854 , p12_a16
1855 , p12_a17
1856 , p12_a18
1857 , p12_a19
1858 , p12_a20
1859 );
1860
1861 cn_plan_element_pub_w.rosetta_table_copy_in_p18(ddp_rt_quota_asgns_rec_tbl, p13_a0
1862 , p13_a1
1863 , p13_a2
1864 , p13_a3
1865 , p13_a4
1866 , p13_a5
1867 , p13_a6
1868 , p13_a7
1869 , p13_a8
1870 , p13_a9
1871 , p13_a10
1872 , p13_a11
1873 , p13_a12
1874 , p13_a13
1875 , p13_a14
1876 , p13_a15
1877 , p13_a16
1878 , p13_a17
1879 , p13_a18
1880 , p13_a19
1881 , p13_a20
1882 , p13_a21
1883 , p13_a22
1884 , p13_a23
1885 );
1886
1887
1888 -- here's the delegated call to the old PL/SQL routine
1889 cn_plan_element_pub.update_plan_element(p_api_version,
1890 p_init_msg_list,
1891 p_commit,
1892 p_validation_level,
1893 x_return_status,
1894 x_msg_count,
1895 x_msg_data,
1896 ddp_new_plan_element_rec,
1897 p_quota_name_old,
1898 ddp_revenue_class_rec_tbl,
1899 ddp_rev_uplift_rec_tbl,
1900 ddp_trx_factor_rec_tbl,
1901 ddp_period_quotas_rec_tbl,
1902 ddp_rt_quota_asgns_rec_tbl,
1903 x_loading_status);
1904
1905 -- copy data back from the local variables to OUT or IN-OUT args, if any
1906
1907
1908
1909
1910
1911
1912
1913
1914
1915
1916
1917
1918
1919
1920 end;
1921
1922 procedure delete_plan_element(p_api_version NUMBER
1923 , p_init_msg_list VARCHAR2
1924 , p_commit VARCHAR2
1925 , p_validation_level NUMBER
1926 , x_return_status out nocopy VARCHAR2
1927 , x_msg_count out nocopy NUMBER
1928 , x_msg_data out nocopy VARCHAR2
1929 , p7_a0 VARCHAR2
1930 , p7_a1 VARCHAR2
1931 , p7_a2 VARCHAR2
1932 , p7_a3 VARCHAR2
1933 , p7_a4 NUMBER
1934 , p7_a5 VARCHAR2
1935 , p7_a6 VARCHAR2
1936 , p7_a7 VARCHAR2
1937 , p7_a8 VARCHAR2
1938 , p7_a9 VARCHAR2
1939 , p7_a10 NUMBER
1940 , p7_a11 NUMBER
1941 , p7_a12 DATE
1942 , p7_a13 DATE
1943 , p7_a14 VARCHAR2
1944 , p7_a15 VARCHAR2
1945 , p7_a16 VARCHAR2
1946 , p7_a17 VARCHAR2
1947 , p7_a18 VARCHAR2
1948 , p7_a19 NUMBER
1949 , p7_a20 NUMBER
1950 , p7_a21 VARCHAR2
1951 , p7_a22 VARCHAR2
1952 , p7_a23 VARCHAR2
1953 , p7_a24 VARCHAR2
1954 , p7_a25 VARCHAR2
1955 , p7_a26 VARCHAR2
1956 , p7_a27 VARCHAR2
1957 , p7_a28 VARCHAR2
1958 , p7_a29 VARCHAR2
1959 , p7_a30 VARCHAR2
1960 , p7_a31 VARCHAR2
1961 , p7_a32 VARCHAR2
1962 , p7_a33 VARCHAR2
1963 , p7_a34 VARCHAR2
1964 , p7_a35 VARCHAR2
1965 , p7_a36 VARCHAR2
1966 , p7_a37 VARCHAR2
1967 , p7_a38 VARCHAR2
1968 , p7_a39 NUMBER
1969 , p7_a40 NUMBER
1970 , p7_a41 VARCHAR2
1971 , p7_a42 VARCHAR2
1972 , p8_a0 JTF_VARCHAR2_TABLE_100
1973 , p8_a1 JTF_NUMBER_TABLE
1974 , p8_a2 JTF_NUMBER_TABLE
1975 , p8_a3 JTF_NUMBER_TABLE
1976 , p8_a4 JTF_VARCHAR2_TABLE_1900
1977 , p8_a5 JTF_VARCHAR2_TABLE_100
1978 , p8_a6 JTF_VARCHAR2_TABLE_200
1979 , p8_a7 JTF_VARCHAR2_TABLE_200
1980 , p8_a8 JTF_VARCHAR2_TABLE_200
1981 , p8_a9 JTF_VARCHAR2_TABLE_200
1982 , p8_a10 JTF_VARCHAR2_TABLE_200
1983 , p8_a11 JTF_VARCHAR2_TABLE_200
1984 , p8_a12 JTF_VARCHAR2_TABLE_200
1985 , p8_a13 JTF_VARCHAR2_TABLE_200
1986 , p8_a14 JTF_VARCHAR2_TABLE_200
1987 , p8_a15 JTF_VARCHAR2_TABLE_200
1988 , p8_a16 JTF_VARCHAR2_TABLE_200
1989 , p8_a17 JTF_VARCHAR2_TABLE_200
1990 , p8_a18 JTF_VARCHAR2_TABLE_200
1991 , p8_a19 JTF_VARCHAR2_TABLE_200
1992 , p8_a20 JTF_VARCHAR2_TABLE_200
1993 , p8_a21 JTF_VARCHAR2_TABLE_100
1994 , p8_a22 JTF_NUMBER_TABLE
1995 , p9_a0 JTF_VARCHAR2_TABLE_100
1996 , p9_a1 JTF_DATE_TABLE
1997 , p9_a2 JTF_DATE_TABLE
1998 , p9_a3 JTF_NUMBER_TABLE
1999 , p9_a4 JTF_NUMBER_TABLE
2000 , p9_a5 JTF_VARCHAR2_TABLE_100
2001 , p9_a6 JTF_VARCHAR2_TABLE_200
2002 , p9_a7 JTF_VARCHAR2_TABLE_200
2003 , p9_a8 JTF_VARCHAR2_TABLE_200
2004 , p9_a9 JTF_VARCHAR2_TABLE_200
2005 , p9_a10 JTF_VARCHAR2_TABLE_200
2006 , p9_a11 JTF_VARCHAR2_TABLE_200
2007 , p9_a12 JTF_VARCHAR2_TABLE_200
2008 , p9_a13 JTF_VARCHAR2_TABLE_200
2009 , p9_a14 JTF_VARCHAR2_TABLE_200
2010 , p9_a15 JTF_VARCHAR2_TABLE_200
2011 , p9_a16 JTF_VARCHAR2_TABLE_200
2012 , p9_a17 JTF_VARCHAR2_TABLE_200
2013 , p9_a18 JTF_VARCHAR2_TABLE_200
2014 , p9_a19 JTF_VARCHAR2_TABLE_200
2015 , p9_a20 JTF_VARCHAR2_TABLE_200
2016 , p9_a21 JTF_VARCHAR2_TABLE_100
2017 , p9_a22 JTF_DATE_TABLE
2018 , p9_a23 JTF_DATE_TABLE
2019 , p9_a24 JTF_NUMBER_TABLE
2020 , p9_a25 JTF_NUMBER_TABLE
2021 , p10_a0 JTF_VARCHAR2_TABLE_100
2022 , p10_a1 JTF_VARCHAR2_TABLE_100
2023 , p10_a2 JTF_DATE_TABLE
2024 , p10_a3 JTF_DATE_TABLE
2025 , p10_a4 JTF_VARCHAR2_TABLE_100
2026 , p10_a5 JTF_VARCHAR2_TABLE_200
2027 , p10_a6 JTF_VARCHAR2_TABLE_200
2028 , p10_a7 JTF_VARCHAR2_TABLE_200
2029 , p10_a8 JTF_VARCHAR2_TABLE_200
2030 , p10_a9 JTF_VARCHAR2_TABLE_200
2031 , p10_a10 JTF_VARCHAR2_TABLE_200
2032 , p10_a11 JTF_VARCHAR2_TABLE_200
2033 , p10_a12 JTF_VARCHAR2_TABLE_200
2034 , p10_a13 JTF_VARCHAR2_TABLE_200
2035 , p10_a14 JTF_VARCHAR2_TABLE_200
2036 , p10_a15 JTF_VARCHAR2_TABLE_200
2037 , p10_a16 JTF_VARCHAR2_TABLE_200
2038 , p10_a17 JTF_VARCHAR2_TABLE_200
2039 , p10_a18 JTF_VARCHAR2_TABLE_200
2040 , p10_a19 JTF_VARCHAR2_TABLE_200
2041 , p10_a20 JTF_VARCHAR2_TABLE_100
2042 , p10_a21 JTF_DATE_TABLE
2043 , p10_a22 JTF_DATE_TABLE
2044 , p10_a23 JTF_NUMBER_TABLE
2045 , x_loading_status out nocopy VARCHAR2
2046 )
2047
2048 as
2049 ddp_quota_rec cn_plan_element_pub.plan_element_rec_type;
2050 ddp_revenue_class_rec_tbl cn_plan_element_pub.revenue_class_rec_tbl_type;
2051 ddp_rev_uplift_rec_tbl cn_plan_element_pub.rev_uplift_rec_tbl_type;
2052 ddp_rt_quota_asgns_rec_tbl cn_plan_element_pub.rt_quota_asgns_rec_tbl_type;
2053 ddindx binary_integer; indx binary_integer;
2054 begin
2055
2056 -- copy data to the local IN or IN-OUT args, if any
2057
2058
2059
2060
2061
2062
2063
2064 ddp_quota_rec.name := p7_a0;
2065 ddp_quota_rec.description := p7_a1;
2066 ddp_quota_rec.period_type := p7_a2;
2067 ddp_quota_rec.element_type := p7_a3;
2068 ddp_quota_rec.target := p7_a4;
2069 ddp_quota_rec.incentive_type := p7_a5;
2070 ddp_quota_rec.credit_type := p7_a6;
2071 ddp_quota_rec.calc_formula_name := p7_a7;
2072 ddp_quota_rec.rt_sched_custom_flag := p7_a8;
2073 ddp_quota_rec.package_name := p7_a9;
2074 ddp_quota_rec.performance_goal := p7_a10;
2075 ddp_quota_rec.payment_amount := p7_a11;
2076 ddp_quota_rec.start_date := p7_a12;
2077 ddp_quota_rec.end_date := p7_a13;
2078 ddp_quota_rec.status := p7_a14;
2079 ddp_quota_rec.interval_name := p7_a15;
2080 ddp_quota_rec.payee_assign_flag := p7_a16;
2081 ddp_quota_rec.vesting_flag := p7_a17;
2082 ddp_quota_rec.addup_from_rev_class_flag := p7_a18;
2083 ddp_quota_rec.expense_account_id := p7_a19;
2084 ddp_quota_rec.liability_account_id := p7_a20;
2085 ddp_quota_rec.quota_group_code := p7_a21;
2086 ddp_quota_rec.payment_group_code := p7_a22;
2087 ddp_quota_rec.attribute_category := p7_a23;
2088 ddp_quota_rec.attribute1 := p7_a24;
2089 ddp_quota_rec.attribute2 := p7_a25;
2090 ddp_quota_rec.attribute3 := p7_a26;
2091 ddp_quota_rec.attribute4 := p7_a27;
2092 ddp_quota_rec.attribute5 := p7_a28;
2093 ddp_quota_rec.attribute6 := p7_a29;
2094 ddp_quota_rec.attribute7 := p7_a30;
2095 ddp_quota_rec.attribute8 := p7_a31;
2096 ddp_quota_rec.attribute9 := p7_a32;
2097 ddp_quota_rec.attribute10 := p7_a33;
2098 ddp_quota_rec.attribute11 := p7_a34;
2099 ddp_quota_rec.attribute12 := p7_a35;
2100 ddp_quota_rec.attribute13 := p7_a36;
2101 ddp_quota_rec.attribute14 := p7_a37;
2102 ddp_quota_rec.attribute15 := p7_a38;
2103 ddp_quota_rec.org_id := p7_a39;
2104 ddp_quota_rec.quota_id := p7_a40;
2105 ddp_quota_rec.indirect_credit := p7_a41;
2106 ddp_quota_rec.sreps_enddated_flag := p7_a42;
2107
2108 cn_plan_element_pub_w.rosetta_table_copy_in_p8(ddp_revenue_class_rec_tbl, p8_a0
2109 , p8_a1
2110 , p8_a2
2111 , p8_a3
2112 , p8_a4
2113 , p8_a5
2114 , p8_a6
2115 , p8_a7
2116 , p8_a8
2117 , p8_a9
2118 , p8_a10
2119 , p8_a11
2120 , p8_a12
2121 , p8_a13
2122 , p8_a14
2123 , p8_a15
2124 , p8_a16
2125 , p8_a17
2126 , p8_a18
2127 , p8_a19
2128 , p8_a20
2129 , p8_a21
2130 , p8_a22
2131 );
2132
2133 cn_plan_element_pub_w.rosetta_table_copy_in_p11(ddp_rev_uplift_rec_tbl, p9_a0
2134 , p9_a1
2135 , p9_a2
2136 , p9_a3
2137 , p9_a4
2138 , p9_a5
2139 , p9_a6
2140 , p9_a7
2141 , p9_a8
2142 , p9_a9
2143 , p9_a10
2144 , p9_a11
2145 , p9_a12
2146 , p9_a13
2147 , p9_a14
2148 , p9_a15
2149 , p9_a16
2150 , p9_a17
2151 , p9_a18
2152 , p9_a19
2153 , p9_a20
2154 , p9_a21
2155 , p9_a22
2156 , p9_a23
2157 , p9_a24
2158 , p9_a25
2159 );
2160
2161 cn_plan_element_pub_w.rosetta_table_copy_in_p18(ddp_rt_quota_asgns_rec_tbl, p10_a0
2162 , p10_a1
2163 , p10_a2
2164 , p10_a3
2165 , p10_a4
2166 , p10_a5
2167 , p10_a6
2168 , p10_a7
2169 , p10_a8
2170 , p10_a9
2171 , p10_a10
2172 , p10_a11
2173 , p10_a12
2174 , p10_a13
2175 , p10_a14
2176 , p10_a15
2177 , p10_a16
2178 , p10_a17
2179 , p10_a18
2180 , p10_a19
2181 , p10_a20
2182 , p10_a21
2183 , p10_a22
2184 , p10_a23
2185 );
2186
2187
2188 -- here's the delegated call to the old PL/SQL routine
2189 cn_plan_element_pub.delete_plan_element(p_api_version,
2190 p_init_msg_list,
2191 p_commit,
2192 p_validation_level,
2193 x_return_status,
2194 x_msg_count,
2195 x_msg_data,
2196 ddp_quota_rec,
2197 ddp_revenue_class_rec_tbl,
2198 ddp_rev_uplift_rec_tbl,
2199 ddp_rt_quota_asgns_rec_tbl,
2200 x_loading_status);
2201
2202 -- copy data back from the local variables to OUT or IN-OUT args, if any
2203
2204
2205
2206
2207
2208
2209
2210
2211
2212
2213
2214 end;
2215
2216 end cn_plan_element_pub_w;