[Home] [Help]
PACKAGE BODY: APPS.CN_PLAN_ELEMENT_PVT_W
Source
1 package body cn_plan_element_pvt_w as
2 /* $Header: cnwpeb.pls 120.2.12000000.2 2007/10/08 18:50:40 rnagired ship $ */
3 procedure rosetta_table_copy_in_p1(t out nocopy cn_plan_element_pvt.plan_element_tbl_type, a0 JTF_NUMBER_TABLE
4 , a1 JTF_VARCHAR2_TABLE_100
5 , a2 JTF_VARCHAR2_TABLE_1900
6 , a3 JTF_VARCHAR2_TABLE_100
7 , a4 JTF_NUMBER_TABLE
8 , a5 JTF_NUMBER_TABLE
9 , a6 JTF_NUMBER_TABLE
10 , a7 JTF_VARCHAR2_TABLE_100
11 , a8 JTF_DATE_TABLE
12 , a9 JTF_DATE_TABLE
13 , a10 JTF_NUMBER_TABLE
14 , a11 JTF_NUMBER_TABLE
15 , a12 JTF_NUMBER_TABLE
16 , a13 JTF_NUMBER_TABLE
17 , a14 JTF_NUMBER_TABLE
18 , a15 JTF_VARCHAR2_TABLE_4000
19 , a16 JTF_VARCHAR2_TABLE_4000
20 , a17 JTF_VARCHAR2_TABLE_100
21 , a18 JTF_VARCHAR2_TABLE_100
22 , a19 JTF_VARCHAR2_TABLE_100
23 , a20 JTF_VARCHAR2_TABLE_100
24 , a21 JTF_VARCHAR2_TABLE_200
25 , a22 JTF_VARCHAR2_TABLE_200
26 , a23 JTF_VARCHAR2_TABLE_200
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_100
40 , a37 JTF_VARCHAR2_TABLE_100
41 , a38 JTF_VARCHAR2_TABLE_100
42 , a39 JTF_NUMBER_TABLE
43 , a40 JTF_NUMBER_TABLE
44 , a41 JTF_VARCHAR2_TABLE_100
45 , a42 JTF_VARCHAR2_TABLE_100
46 , a43 JTF_VARCHAR2_TABLE_100
47 , a44 JTF_VARCHAR2_TABLE_100
48 ) as
49 ddindx binary_integer; indx binary_integer;
50 begin
51 if a0 is not null and a0.count > 0 then
52 if a0.count > 0 then
53 indx := a0.first;
54 ddindx := 1;
55 while true loop
56 t(ddindx).quota_id := a0(indx);
57 t(ddindx).name := a1(indx);
58 t(ddindx).description := a2(indx);
59 t(ddindx).quota_type_code := a3(indx);
60 t(ddindx).target := a4(indx);
61 t(ddindx).payment_amount := a5(indx);
62 t(ddindx).performance_goal := a6(indx);
63 t(ddindx).incentive_type_code := a7(indx);
64 t(ddindx).start_date := a8(indx);
65 t(ddindx).end_date := a9(indx);
66 t(ddindx).credit_type_id := a10(indx);
67 t(ddindx).interval_type_id := a11(indx);
68 t(ddindx).calc_formula_id := a12(indx);
69 t(ddindx).liability_account_id := a13(indx);
70 t(ddindx).expense_account_id := a14(indx);
71 t(ddindx).liability_account_cc := a15(indx);
72 t(ddindx).expense_account_cc := a16(indx);
73 t(ddindx).vesting_flag := a17(indx);
74 t(ddindx).quota_group_code := a18(indx);
75 t(ddindx).payment_group_code := a19(indx);
76 t(ddindx).attribute_category := a20(indx);
77 t(ddindx).attribute1 := a21(indx);
78 t(ddindx).attribute2 := a22(indx);
79 t(ddindx).attribute3 := a23(indx);
80 t(ddindx).attribute4 := a24(indx);
81 t(ddindx).attribute5 := a25(indx);
82 t(ddindx).attribute6 := a26(indx);
83 t(ddindx).attribute7 := a27(indx);
84 t(ddindx).attribute8 := a28(indx);
85 t(ddindx).attribute9 := a29(indx);
86 t(ddindx).attribute10 := a30(indx);
87 t(ddindx).attribute11 := a31(indx);
88 t(ddindx).attribute12 := a32(indx);
89 t(ddindx).attribute13 := a33(indx);
90 t(ddindx).attribute14 := a34(indx);
91 t(ddindx).attribute15 := a35(indx);
92 t(ddindx).addup_from_rev_class_flag := a36(indx);
93 t(ddindx).payee_assign_flag := a37(indx);
94 t(ddindx).package_name := a38(indx);
95 t(ddindx).object_version_number := a39(indx);
96 t(ddindx).org_id := a40(indx);
97 t(ddindx).indirect_credit_code := a41(indx);
98 t(ddindx).quota_status := a42(indx);
99 t(ddindx).call_type := a43(indx);
100 t(ddindx).sreps_enddated_flag := a44(indx);
101 ddindx := ddindx+1;
102 if a0.last =indx
103 then exit;
104 end if;
105 indx := a0.next(indx);
106 end loop;
107 end if;
108 end if;
109 end rosetta_table_copy_in_p1;
110 procedure rosetta_table_copy_out_p1(t cn_plan_element_pvt.plan_element_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
111 , a1 out nocopy JTF_VARCHAR2_TABLE_100
112 , a2 out nocopy JTF_VARCHAR2_TABLE_1900
113 , a3 out nocopy JTF_VARCHAR2_TABLE_100
114 , a4 out nocopy JTF_NUMBER_TABLE
115 , a5 out nocopy JTF_NUMBER_TABLE
116 , a6 out nocopy JTF_NUMBER_TABLE
117 , a7 out nocopy JTF_VARCHAR2_TABLE_100
118 , a8 out nocopy JTF_DATE_TABLE
119 , a9 out nocopy JTF_DATE_TABLE
120 , a10 out nocopy JTF_NUMBER_TABLE
121 , a11 out nocopy JTF_NUMBER_TABLE
122 , a12 out nocopy JTF_NUMBER_TABLE
123 , a13 out nocopy JTF_NUMBER_TABLE
124 , a14 out nocopy JTF_NUMBER_TABLE
125 , a15 out nocopy JTF_VARCHAR2_TABLE_4000
126 , a16 out nocopy JTF_VARCHAR2_TABLE_4000
127 , a17 out nocopy JTF_VARCHAR2_TABLE_100
128 , a18 out nocopy JTF_VARCHAR2_TABLE_100
129 , a19 out nocopy JTF_VARCHAR2_TABLE_100
130 , a20 out nocopy JTF_VARCHAR2_TABLE_100
131 , a21 out nocopy JTF_VARCHAR2_TABLE_200
132 , a22 out nocopy JTF_VARCHAR2_TABLE_200
133 , a23 out nocopy JTF_VARCHAR2_TABLE_200
134 , a24 out nocopy JTF_VARCHAR2_TABLE_200
135 , a25 out nocopy JTF_VARCHAR2_TABLE_200
136 , a26 out nocopy JTF_VARCHAR2_TABLE_200
137 , a27 out nocopy JTF_VARCHAR2_TABLE_200
138 , a28 out nocopy JTF_VARCHAR2_TABLE_200
139 , a29 out nocopy JTF_VARCHAR2_TABLE_200
140 , a30 out nocopy JTF_VARCHAR2_TABLE_200
141 , a31 out nocopy JTF_VARCHAR2_TABLE_200
142 , a32 out nocopy JTF_VARCHAR2_TABLE_200
143 , a33 out nocopy JTF_VARCHAR2_TABLE_200
144 , a34 out nocopy JTF_VARCHAR2_TABLE_200
145 , a35 out nocopy JTF_VARCHAR2_TABLE_200
146 , a36 out nocopy JTF_VARCHAR2_TABLE_100
147 , a37 out nocopy JTF_VARCHAR2_TABLE_100
148 , a38 out nocopy JTF_VARCHAR2_TABLE_100
149 , a39 out nocopy JTF_NUMBER_TABLE
150 , a40 out nocopy JTF_NUMBER_TABLE
151 , a41 out nocopy JTF_VARCHAR2_TABLE_100
152 , a42 out nocopy JTF_VARCHAR2_TABLE_100
153 , a43 out nocopy JTF_VARCHAR2_TABLE_100
154 , a44 out nocopy JTF_VARCHAR2_TABLE_100
155 ) as
156 ddindx binary_integer; indx binary_integer;
157 begin
158 if t is null or t.count = 0 then
159 a0 := JTF_NUMBER_TABLE();
160 a1 := JTF_VARCHAR2_TABLE_100();
161 a2 := JTF_VARCHAR2_TABLE_1900();
162 a3 := JTF_VARCHAR2_TABLE_100();
163 a4 := JTF_NUMBER_TABLE();
164 a5 := JTF_NUMBER_TABLE();
165 a6 := JTF_NUMBER_TABLE();
166 a7 := JTF_VARCHAR2_TABLE_100();
167 a8 := JTF_DATE_TABLE();
168 a9 := JTF_DATE_TABLE();
169 a10 := JTF_NUMBER_TABLE();
170 a11 := JTF_NUMBER_TABLE();
171 a12 := JTF_NUMBER_TABLE();
172 a13 := JTF_NUMBER_TABLE();
173 a14 := JTF_NUMBER_TABLE();
174 a15 := JTF_VARCHAR2_TABLE_4000();
175 a16 := JTF_VARCHAR2_TABLE_4000();
176 a17 := JTF_VARCHAR2_TABLE_100();
177 a18 := JTF_VARCHAR2_TABLE_100();
178 a19 := JTF_VARCHAR2_TABLE_100();
179 a20 := JTF_VARCHAR2_TABLE_100();
180 a21 := JTF_VARCHAR2_TABLE_200();
181 a22 := JTF_VARCHAR2_TABLE_200();
182 a23 := JTF_VARCHAR2_TABLE_200();
183 a24 := JTF_VARCHAR2_TABLE_200();
184 a25 := JTF_VARCHAR2_TABLE_200();
185 a26 := JTF_VARCHAR2_TABLE_200();
186 a27 := JTF_VARCHAR2_TABLE_200();
187 a28 := JTF_VARCHAR2_TABLE_200();
188 a29 := JTF_VARCHAR2_TABLE_200();
189 a30 := JTF_VARCHAR2_TABLE_200();
190 a31 := JTF_VARCHAR2_TABLE_200();
191 a32 := JTF_VARCHAR2_TABLE_200();
192 a33 := JTF_VARCHAR2_TABLE_200();
193 a34 := JTF_VARCHAR2_TABLE_200();
194 a35 := JTF_VARCHAR2_TABLE_200();
195 a36 := JTF_VARCHAR2_TABLE_100();
196 a37 := JTF_VARCHAR2_TABLE_100();
197 a38 := JTF_VARCHAR2_TABLE_100();
198 a39 := JTF_NUMBER_TABLE();
199 a40 := JTF_NUMBER_TABLE();
200 a41 := JTF_VARCHAR2_TABLE_100();
201 a42 := JTF_VARCHAR2_TABLE_100();
202 a43 := JTF_VARCHAR2_TABLE_100();
203 a44 := JTF_VARCHAR2_TABLE_100();
204 else
205 a0 := JTF_NUMBER_TABLE();
206 a1 := JTF_VARCHAR2_TABLE_100();
207 a2 := JTF_VARCHAR2_TABLE_1900();
208 a3 := JTF_VARCHAR2_TABLE_100();
209 a4 := JTF_NUMBER_TABLE();
210 a5 := JTF_NUMBER_TABLE();
211 a6 := JTF_NUMBER_TABLE();
212 a7 := JTF_VARCHAR2_TABLE_100();
213 a8 := JTF_DATE_TABLE();
214 a9 := JTF_DATE_TABLE();
215 a10 := JTF_NUMBER_TABLE();
216 a11 := JTF_NUMBER_TABLE();
217 a12 := JTF_NUMBER_TABLE();
218 a13 := JTF_NUMBER_TABLE();
219 a14 := JTF_NUMBER_TABLE();
220 a15 := JTF_VARCHAR2_TABLE_4000();
221 a16 := JTF_VARCHAR2_TABLE_4000();
222 a17 := JTF_VARCHAR2_TABLE_100();
223 a18 := JTF_VARCHAR2_TABLE_100();
224 a19 := JTF_VARCHAR2_TABLE_100();
225 a20 := JTF_VARCHAR2_TABLE_100();
226 a21 := JTF_VARCHAR2_TABLE_200();
227 a22 := JTF_VARCHAR2_TABLE_200();
228 a23 := JTF_VARCHAR2_TABLE_200();
229 a24 := JTF_VARCHAR2_TABLE_200();
230 a25 := JTF_VARCHAR2_TABLE_200();
231 a26 := JTF_VARCHAR2_TABLE_200();
232 a27 := JTF_VARCHAR2_TABLE_200();
233 a28 := JTF_VARCHAR2_TABLE_200();
234 a29 := JTF_VARCHAR2_TABLE_200();
235 a30 := JTF_VARCHAR2_TABLE_200();
236 a31 := JTF_VARCHAR2_TABLE_200();
237 a32 := JTF_VARCHAR2_TABLE_200();
238 a33 := JTF_VARCHAR2_TABLE_200();
239 a34 := JTF_VARCHAR2_TABLE_200();
240 a35 := JTF_VARCHAR2_TABLE_200();
241 a36 := JTF_VARCHAR2_TABLE_100();
242 a37 := JTF_VARCHAR2_TABLE_100();
243 a38 := JTF_VARCHAR2_TABLE_100();
244 a39 := JTF_NUMBER_TABLE();
245 a40 := JTF_NUMBER_TABLE();
246 a41 := JTF_VARCHAR2_TABLE_100();
247 a42 := JTF_VARCHAR2_TABLE_100();
248 a43 := JTF_VARCHAR2_TABLE_100();
249 a44 := JTF_VARCHAR2_TABLE_100();
250 if t.count > 0 then
251 a0.extend(t.count);
252 a1.extend(t.count);
253 a2.extend(t.count);
254 a3.extend(t.count);
255 a4.extend(t.count);
256 a5.extend(t.count);
257 a6.extend(t.count);
258 a7.extend(t.count);
259 a8.extend(t.count);
260 a9.extend(t.count);
261 a10.extend(t.count);
262 a11.extend(t.count);
263 a12.extend(t.count);
264 a13.extend(t.count);
265 a14.extend(t.count);
266 a15.extend(t.count);
267 a16.extend(t.count);
268 a17.extend(t.count);
269 a18.extend(t.count);
270 a19.extend(t.count);
271 a20.extend(t.count);
272 a21.extend(t.count);
273 a22.extend(t.count);
274 a23.extend(t.count);
275 a24.extend(t.count);
276 a25.extend(t.count);
277 a26.extend(t.count);
278 a27.extend(t.count);
279 a28.extend(t.count);
280 a29.extend(t.count);
281 a30.extend(t.count);
282 a31.extend(t.count);
283 a32.extend(t.count);
284 a33.extend(t.count);
285 a34.extend(t.count);
286 a35.extend(t.count);
287 a36.extend(t.count);
288 a37.extend(t.count);
289 a38.extend(t.count);
290 a39.extend(t.count);
291 a40.extend(t.count);
292 a41.extend(t.count);
293 a42.extend(t.count);
294 a43.extend(t.count);
295 a44.extend(t.count);
296 ddindx := t.first;
297 indx := 1;
298 while true loop
299 a0(indx) := t(ddindx).quota_id;
300 a1(indx) := t(ddindx).name;
301 a2(indx) := t(ddindx).description;
302 a3(indx) := t(ddindx).quota_type_code;
303 a4(indx) := t(ddindx).target;
304 a5(indx) := t(ddindx).payment_amount;
305 a6(indx) := t(ddindx).performance_goal;
306 a7(indx) := t(ddindx).incentive_type_code;
307 a8(indx) := t(ddindx).start_date;
308 a9(indx) := t(ddindx).end_date;
309 a10(indx) := t(ddindx).credit_type_id;
310 a11(indx) := t(ddindx).interval_type_id;
311 a12(indx) := t(ddindx).calc_formula_id;
312 a13(indx) := t(ddindx).liability_account_id;
313 a14(indx) := t(ddindx).expense_account_id;
314 a15(indx) := t(ddindx).liability_account_cc;
315 a16(indx) := t(ddindx).expense_account_cc;
316 a17(indx) := t(ddindx).vesting_flag;
317 a18(indx) := t(ddindx).quota_group_code;
318 a19(indx) := t(ddindx).payment_group_code;
319 a20(indx) := t(ddindx).attribute_category;
320 a21(indx) := t(ddindx).attribute1;
321 a22(indx) := t(ddindx).attribute2;
322 a23(indx) := t(ddindx).attribute3;
323 a24(indx) := t(ddindx).attribute4;
324 a25(indx) := t(ddindx).attribute5;
325 a26(indx) := t(ddindx).attribute6;
326 a27(indx) := t(ddindx).attribute7;
327 a28(indx) := t(ddindx).attribute8;
328 a29(indx) := t(ddindx).attribute9;
329 a30(indx) := t(ddindx).attribute10;
330 a31(indx) := t(ddindx).attribute11;
331 a32(indx) := t(ddindx).attribute12;
332 a33(indx) := t(ddindx).attribute13;
333 a34(indx) := t(ddindx).attribute14;
334 a35(indx) := t(ddindx).attribute15;
335 a36(indx) := t(ddindx).addup_from_rev_class_flag;
336 a37(indx) := t(ddindx).payee_assign_flag;
337 a38(indx) := t(ddindx).package_name;
338 a39(indx) := t(ddindx).object_version_number;
339 a40(indx) := t(ddindx).org_id;
340 a41(indx) := t(ddindx).indirect_credit_code;
341 a42(indx) := t(ddindx).quota_status;
342 a43(indx) := t(ddindx).call_type;
343 a44(indx) := t(ddindx).sreps_enddated_flag;
344 indx := indx+1;
345 if t.last =ddindx
346 then exit;
347 end if;
348 ddindx := t.next(ddindx);
349 end loop;
350 end if;
351 end if;
352 end rosetta_table_copy_out_p1;
353
354 procedure is_valid_org(p_org_id NUMBER
355 , p_quota_id NUMBER
356 , ddrosetta_retval_bool OUT NOCOPY NUMBER
357 )
358
359 as
360 ddindx binary_integer; indx binary_integer;
361 ddrosetta_retval boolean;
362 begin
363
364 -- copy data to the local IN or IN-OUT args, if any
365
366
367 -- here's the delegated call to the old PL/SQL routine
368 ddrosetta_retval := cn_plan_element_pvt.is_valid_org(p_org_id,
369 p_quota_id);
370
371 -- copy data back from the local variables to OUT or IN-OUT args, if any
372 if ddrosetta_retval is null
373 then ddrosetta_retval_bool := null;
374 elsif ddrosetta_retval
375 then ddrosetta_retval_bool := 1;
376 else ddrosetta_retval_bool := 0;
377 end if;
378
379 end;
380
381 procedure create_plan_element(p_api_version NUMBER
382 , p_init_msg_list VARCHAR2
383 , p_commit VARCHAR2
384 , p_validation_level NUMBER
385 , p4_a0 in out nocopy NUMBER
386 , p4_a1 in out nocopy VARCHAR2
387 , p4_a2 in out nocopy VARCHAR2
388 , p4_a3 in out nocopy VARCHAR2
389 , p4_a4 in out nocopy NUMBER
390 , p4_a5 in out nocopy NUMBER
391 , p4_a6 in out nocopy NUMBER
392 , p4_a7 in out nocopy VARCHAR2
393 , p4_a8 in out nocopy DATE
397 , p4_a12 in out nocopy NUMBER
394 , p4_a9 in out nocopy DATE
395 , p4_a10 in out nocopy NUMBER
396 , p4_a11 in out nocopy NUMBER
398 , p4_a13 in out nocopy NUMBER
399 , p4_a14 in out nocopy NUMBER
400 , p4_a15 in out nocopy VARCHAR
401 , p4_a16 in out nocopy VARCHAR
402 , p4_a17 in out nocopy VARCHAR2
403 , p4_a18 in out nocopy VARCHAR2
404 , p4_a19 in out nocopy VARCHAR2
405 , p4_a20 in out nocopy VARCHAR2
406 , p4_a21 in out nocopy VARCHAR2
407 , p4_a22 in out nocopy VARCHAR2
408 , p4_a23 in out nocopy VARCHAR2
409 , p4_a24 in out nocopy VARCHAR2
410 , p4_a25 in out nocopy VARCHAR2
411 , p4_a26 in out nocopy VARCHAR2
412 , p4_a27 in out nocopy VARCHAR2
413 , p4_a28 in out nocopy VARCHAR2
414 , p4_a29 in out nocopy VARCHAR2
415 , p4_a30 in out nocopy VARCHAR2
416 , p4_a31 in out nocopy VARCHAR2
417 , p4_a32 in out nocopy VARCHAR2
418 , p4_a33 in out nocopy VARCHAR2
419 , p4_a34 in out nocopy VARCHAR2
420 , p4_a35 in out nocopy VARCHAR2
421 , p4_a36 in out nocopy VARCHAR2
422 , p4_a37 in out nocopy VARCHAR2
423 , p4_a38 in out nocopy VARCHAR2
424 , p4_a39 in out nocopy NUMBER
425 , p4_a40 in out nocopy NUMBER
426 , p4_a41 in out nocopy VARCHAR2
427 , p4_a42 in out nocopy VARCHAR2
428 , p4_a43 in out nocopy VARCHAR2
429 , p4_a44 in out nocopy VARCHAR2
430 , x_return_status out nocopy VARCHAR2
431 , x_msg_count out nocopy NUMBER
432 , x_msg_data out nocopy VARCHAR2
433 )
434
435 as
436 ddp_plan_element cn_plan_element_pvt.plan_element_rec_type;
437 ddindx binary_integer; indx binary_integer;
438 begin
439
440 -- copy data to the local IN or IN-OUT args, if any
441
442
443
444
445 ddp_plan_element.quota_id := p4_a0;
446 ddp_plan_element.name := p4_a1;
447 ddp_plan_element.description := p4_a2;
448 ddp_plan_element.quota_type_code := p4_a3;
449 ddp_plan_element.target := p4_a4;
450 ddp_plan_element.payment_amount := p4_a5;
451 ddp_plan_element.performance_goal := p4_a6;
452 ddp_plan_element.incentive_type_code := p4_a7;
453 ddp_plan_element.start_date := p4_a8;
454 ddp_plan_element.end_date := p4_a9;
455 ddp_plan_element.credit_type_id := p4_a10;
456 ddp_plan_element.interval_type_id := p4_a11;
457 ddp_plan_element.calc_formula_id := p4_a12;
458 ddp_plan_element.liability_account_id := p4_a13;
459 ddp_plan_element.expense_account_id := p4_a14;
460 ddp_plan_element.liability_account_cc := p4_a15;
461 ddp_plan_element.expense_account_cc := p4_a16;
462 ddp_plan_element.vesting_flag := p4_a17;
463 ddp_plan_element.quota_group_code := p4_a18;
464 ddp_plan_element.payment_group_code := p4_a19;
465 ddp_plan_element.attribute_category := p4_a20;
466 ddp_plan_element.attribute1 := p4_a21;
467 ddp_plan_element.attribute2 := p4_a22;
468 ddp_plan_element.attribute3 := p4_a23;
469 ddp_plan_element.attribute4 := p4_a24;
470 ddp_plan_element.attribute5 := p4_a25;
471 ddp_plan_element.attribute6 := p4_a26;
472 ddp_plan_element.attribute7 := p4_a27;
473 ddp_plan_element.attribute8 := p4_a28;
474 ddp_plan_element.attribute9 := p4_a29;
475 ddp_plan_element.attribute10 := p4_a30;
476 ddp_plan_element.attribute11 := p4_a31;
477 ddp_plan_element.attribute12 := p4_a32;
478 ddp_plan_element.attribute13 := p4_a33;
479 ddp_plan_element.attribute14 := p4_a34;
480 ddp_plan_element.attribute15 := p4_a35;
481 ddp_plan_element.addup_from_rev_class_flag := p4_a36;
482 ddp_plan_element.payee_assign_flag := p4_a37;
483 ddp_plan_element.package_name := p4_a38;
484 ddp_plan_element.object_version_number := p4_a39;
485 ddp_plan_element.org_id := p4_a40;
486 ddp_plan_element.indirect_credit_code := p4_a41;
487 ddp_plan_element.quota_status := p4_a42;
488 ddp_plan_element.call_type := p4_a43;
489 ddp_plan_element.sreps_enddated_flag := p4_a44;
490
491
492
493
494 -- here's the delegated call to the old PL/SQL routine
495 cn_plan_element_pvt.create_plan_element(p_api_version,
496 p_init_msg_list,
497 p_commit,
498 p_validation_level,
499 ddp_plan_element,
500 x_return_status,
501 x_msg_count,
502 x_msg_data);
503
504 -- copy data back from the local variables to OUT or IN-OUT args, if any
505
506
507
508
509 p4_a0 := ddp_plan_element.quota_id;
510 p4_a1 := ddp_plan_element.name;
511 p4_a2 := ddp_plan_element.description;
512 p4_a3 := ddp_plan_element.quota_type_code;
513 p4_a4 := ddp_plan_element.target;
514 p4_a5 := ddp_plan_element.payment_amount;
515 p4_a6 := ddp_plan_element.performance_goal;
516 p4_a7 := ddp_plan_element.incentive_type_code;
517 p4_a8 := ddp_plan_element.start_date;
518 p4_a9 := ddp_plan_element.end_date;
519 p4_a10 := ddp_plan_element.credit_type_id;
520 p4_a11 := ddp_plan_element.interval_type_id;
521 p4_a12 := ddp_plan_element.calc_formula_id;
522 p4_a13 := ddp_plan_element.liability_account_id;
523 p4_a14 := ddp_plan_element.expense_account_id;
527 p4_a18 := ddp_plan_element.quota_group_code;
524 p4_a15 := ddp_plan_element.liability_account_cc;
525 p4_a16 := ddp_plan_element.expense_account_cc;
526 p4_a17 := ddp_plan_element.vesting_flag;
528 p4_a19 := ddp_plan_element.payment_group_code;
529 p4_a20 := ddp_plan_element.attribute_category;
530 p4_a21 := ddp_plan_element.attribute1;
531 p4_a22 := ddp_plan_element.attribute2;
532 p4_a23 := ddp_plan_element.attribute3;
533 p4_a24 := ddp_plan_element.attribute4;
534 p4_a25 := ddp_plan_element.attribute5;
535 p4_a26 := ddp_plan_element.attribute6;
536 p4_a27 := ddp_plan_element.attribute7;
537 p4_a28 := ddp_plan_element.attribute8;
538 p4_a29 := ddp_plan_element.attribute9;
539 p4_a30 := ddp_plan_element.attribute10;
540 p4_a31 := ddp_plan_element.attribute11;
541 p4_a32 := ddp_plan_element.attribute12;
542 p4_a33 := ddp_plan_element.attribute13;
543 p4_a34 := ddp_plan_element.attribute14;
544 p4_a35 := ddp_plan_element.attribute15;
545 p4_a36 := ddp_plan_element.addup_from_rev_class_flag;
546 p4_a37 := ddp_plan_element.payee_assign_flag;
547 p4_a38 := ddp_plan_element.package_name;
548 p4_a39 := ddp_plan_element.object_version_number;
549 p4_a40 := ddp_plan_element.org_id;
550 p4_a41 := ddp_plan_element.indirect_credit_code;
551 p4_a42 := ddp_plan_element.quota_status;
552 p4_a43 := ddp_plan_element.call_type;
553 p4_a44 := ddp_plan_element.sreps_enddated_flag;
554
555
556
557 end;
558
559 procedure update_plan_element(p_api_version NUMBER
560 , p_init_msg_list VARCHAR2
561 , p_commit VARCHAR2
562 , p_validation_level NUMBER
563 , p4_a0 in out nocopy NUMBER
564 , p4_a1 in out nocopy VARCHAR2
565 , p4_a2 in out nocopy VARCHAR2
566 , p4_a3 in out nocopy VARCHAR2
567 , p4_a4 in out nocopy NUMBER
568 , p4_a5 in out nocopy NUMBER
569 , p4_a6 in out nocopy NUMBER
570 , p4_a7 in out nocopy VARCHAR2
571 , p4_a8 in out nocopy DATE
572 , p4_a9 in out nocopy DATE
573 , p4_a10 in out nocopy NUMBER
574 , p4_a11 in out nocopy NUMBER
575 , p4_a12 in out nocopy NUMBER
576 , p4_a13 in out nocopy NUMBER
577 , p4_a14 in out nocopy NUMBER
578 , p4_a15 in out nocopy VARCHAR
579 , p4_a16 in out nocopy VARCHAR
580 , p4_a17 in out nocopy VARCHAR2
581 , p4_a18 in out nocopy VARCHAR2
582 , p4_a19 in out nocopy VARCHAR2
583 , p4_a20 in out nocopy VARCHAR2
584 , p4_a21 in out nocopy VARCHAR2
585 , p4_a22 in out nocopy VARCHAR2
586 , p4_a23 in out nocopy VARCHAR2
587 , p4_a24 in out nocopy VARCHAR2
588 , p4_a25 in out nocopy VARCHAR2
589 , p4_a26 in out nocopy VARCHAR2
590 , p4_a27 in out nocopy VARCHAR2
591 , p4_a28 in out nocopy VARCHAR2
592 , p4_a29 in out nocopy VARCHAR2
593 , p4_a30 in out nocopy VARCHAR2
594 , p4_a31 in out nocopy VARCHAR2
595 , p4_a32 in out nocopy VARCHAR2
596 , p4_a33 in out nocopy VARCHAR2
597 , p4_a34 in out nocopy VARCHAR2
598 , p4_a35 in out nocopy VARCHAR2
599 , p4_a36 in out nocopy VARCHAR2
600 , p4_a37 in out nocopy VARCHAR2
601 , p4_a38 in out nocopy VARCHAR2
602 , p4_a39 in out nocopy NUMBER
603 , p4_a40 in out nocopy NUMBER
604 , p4_a41 in out nocopy VARCHAR2
605 , p4_a42 in out nocopy VARCHAR2
606 , p4_a43 in out nocopy VARCHAR2
607 , p4_a44 in out nocopy VARCHAR2
608 , x_return_status out nocopy VARCHAR2
609 , x_msg_count out nocopy NUMBER
610 , x_msg_data out nocopy VARCHAR2
611 )
612
613 as
614 ddp_plan_element cn_plan_element_pvt.plan_element_rec_type;
615 ddindx binary_integer; indx binary_integer;
616 begin
617
618 -- copy data to the local IN or IN-OUT args, if any
619
620
621
622
623 ddp_plan_element.quota_id := p4_a0;
624 ddp_plan_element.name := p4_a1;
625 ddp_plan_element.description := p4_a2;
626 ddp_plan_element.quota_type_code := p4_a3;
627 ddp_plan_element.target := p4_a4;
628 ddp_plan_element.payment_amount := p4_a5;
629 ddp_plan_element.performance_goal := p4_a6;
630 ddp_plan_element.incentive_type_code := p4_a7;
631 ddp_plan_element.start_date := p4_a8;
632 ddp_plan_element.end_date := p4_a9;
633 ddp_plan_element.credit_type_id := p4_a10;
634 ddp_plan_element.interval_type_id := p4_a11;
635 ddp_plan_element.calc_formula_id := p4_a12;
636 ddp_plan_element.liability_account_id := p4_a13;
637 ddp_plan_element.expense_account_id := p4_a14;
638 ddp_plan_element.liability_account_cc := p4_a15;
639 ddp_plan_element.expense_account_cc := p4_a16;
640 ddp_plan_element.vesting_flag := p4_a17;
641 ddp_plan_element.quota_group_code := p4_a18;
642 ddp_plan_element.payment_group_code := p4_a19;
643 ddp_plan_element.attribute_category := p4_a20;
644 ddp_plan_element.attribute1 := p4_a21;
645 ddp_plan_element.attribute2 := p4_a22;
646 ddp_plan_element.attribute3 := p4_a23;
647 ddp_plan_element.attribute4 := p4_a24;
648 ddp_plan_element.attribute5 := p4_a25;
649 ddp_plan_element.attribute6 := p4_a26;
650 ddp_plan_element.attribute7 := p4_a27;
651 ddp_plan_element.attribute8 := p4_a28;
655 ddp_plan_element.attribute12 := p4_a32;
652 ddp_plan_element.attribute9 := p4_a29;
653 ddp_plan_element.attribute10 := p4_a30;
654 ddp_plan_element.attribute11 := p4_a31;
656 ddp_plan_element.attribute13 := p4_a33;
657 ddp_plan_element.attribute14 := p4_a34;
658 ddp_plan_element.attribute15 := p4_a35;
659 ddp_plan_element.addup_from_rev_class_flag := p4_a36;
660 ddp_plan_element.payee_assign_flag := p4_a37;
661 ddp_plan_element.package_name := p4_a38;
662 ddp_plan_element.object_version_number := p4_a39;
663 ddp_plan_element.org_id := p4_a40;
664 ddp_plan_element.indirect_credit_code := p4_a41;
665 ddp_plan_element.quota_status := p4_a42;
666 ddp_plan_element.call_type := p4_a43;
667 ddp_plan_element.sreps_enddated_flag := p4_a44;
668
669
670
671
672 -- here's the delegated call to the old PL/SQL routine
673 cn_plan_element_pvt.update_plan_element(p_api_version,
674 p_init_msg_list,
675 p_commit,
676 p_validation_level,
677 ddp_plan_element,
678 x_return_status,
679 x_msg_count,
680 x_msg_data);
681
682 -- copy data back from the local variables to OUT or IN-OUT args, if any
683
684
685
686
687 p4_a0 := ddp_plan_element.quota_id;
688 p4_a1 := ddp_plan_element.name;
689 p4_a2 := ddp_plan_element.description;
690 p4_a3 := ddp_plan_element.quota_type_code;
691 p4_a4 := ddp_plan_element.target;
692 p4_a5 := ddp_plan_element.payment_amount;
693 p4_a6 := ddp_plan_element.performance_goal;
694 p4_a7 := ddp_plan_element.incentive_type_code;
695 p4_a8 := ddp_plan_element.start_date;
696 p4_a9 := ddp_plan_element.end_date;
697 p4_a10 := ddp_plan_element.credit_type_id;
698 p4_a11 := ddp_plan_element.interval_type_id;
699 p4_a12 := ddp_plan_element.calc_formula_id;
700 p4_a13 := ddp_plan_element.liability_account_id;
701 p4_a14 := ddp_plan_element.expense_account_id;
702 p4_a15 := ddp_plan_element.liability_account_cc;
703 p4_a16 := ddp_plan_element.expense_account_cc;
704 p4_a17 := ddp_plan_element.vesting_flag;
705 p4_a18 := ddp_plan_element.quota_group_code;
706 p4_a19 := ddp_plan_element.payment_group_code;
707 p4_a20 := ddp_plan_element.attribute_category;
708 p4_a21 := ddp_plan_element.attribute1;
709 p4_a22 := ddp_plan_element.attribute2;
710 p4_a23 := ddp_plan_element.attribute3;
711 p4_a24 := ddp_plan_element.attribute4;
712 p4_a25 := ddp_plan_element.attribute5;
713 p4_a26 := ddp_plan_element.attribute6;
714 p4_a27 := ddp_plan_element.attribute7;
715 p4_a28 := ddp_plan_element.attribute8;
716 p4_a29 := ddp_plan_element.attribute9;
717 p4_a30 := ddp_plan_element.attribute10;
718 p4_a31 := ddp_plan_element.attribute11;
719 p4_a32 := ddp_plan_element.attribute12;
720 p4_a33 := ddp_plan_element.attribute13;
721 p4_a34 := ddp_plan_element.attribute14;
722 p4_a35 := ddp_plan_element.attribute15;
723 p4_a36 := ddp_plan_element.addup_from_rev_class_flag;
724 p4_a37 := ddp_plan_element.payee_assign_flag;
725 p4_a38 := ddp_plan_element.package_name;
726 p4_a39 := ddp_plan_element.object_version_number;
727 p4_a40 := ddp_plan_element.org_id;
728 p4_a41 := ddp_plan_element.indirect_credit_code;
729 p4_a42 := ddp_plan_element.quota_status;
730 p4_a43 := ddp_plan_element.call_type;
731 p4_a44 := ddp_plan_element.sreps_enddated_flag;
732
733
734
735 end;
736
737 procedure delete_plan_element(p_api_version NUMBER
738 , p_init_msg_list VARCHAR2
739 , p_commit VARCHAR2
740 , p_validation_level NUMBER
741 , p4_a0 in out nocopy NUMBER
742 , p4_a1 in out nocopy VARCHAR2
743 , p4_a2 in out nocopy VARCHAR2
744 , p4_a3 in out nocopy VARCHAR2
745 , p4_a4 in out nocopy NUMBER
746 , p4_a5 in out nocopy NUMBER
747 , p4_a6 in out nocopy NUMBER
748 , p4_a7 in out nocopy VARCHAR2
749 , p4_a8 in out nocopy DATE
750 , p4_a9 in out nocopy DATE
751 , p4_a10 in out nocopy NUMBER
752 , p4_a11 in out nocopy NUMBER
753 , p4_a12 in out nocopy NUMBER
754 , p4_a13 in out nocopy NUMBER
755 , p4_a14 in out nocopy NUMBER
756 , p4_a15 in out nocopy VARCHAR
757 , p4_a16 in out nocopy VARCHAR
758 , p4_a17 in out nocopy VARCHAR2
759 , p4_a18 in out nocopy VARCHAR2
760 , p4_a19 in out nocopy VARCHAR2
761 , p4_a20 in out nocopy VARCHAR2
762 , p4_a21 in out nocopy VARCHAR2
763 , p4_a22 in out nocopy VARCHAR2
764 , p4_a23 in out nocopy VARCHAR2
765 , p4_a24 in out nocopy VARCHAR2
766 , p4_a25 in out nocopy VARCHAR2
767 , p4_a26 in out nocopy VARCHAR2
768 , p4_a27 in out nocopy VARCHAR2
769 , p4_a28 in out nocopy VARCHAR2
770 , p4_a29 in out nocopy VARCHAR2
771 , p4_a30 in out nocopy VARCHAR2
772 , p4_a31 in out nocopy VARCHAR2
773 , p4_a32 in out nocopy VARCHAR2
774 , p4_a33 in out nocopy VARCHAR2
775 , p4_a34 in out nocopy VARCHAR2
776 , p4_a35 in out nocopy VARCHAR2
777 , p4_a36 in out nocopy VARCHAR2
778 , p4_a37 in out nocopy VARCHAR2
779 , p4_a38 in out nocopy VARCHAR2
780 , p4_a39 in out nocopy NUMBER
781 , p4_a40 in out nocopy NUMBER
785 , p4_a44 in out nocopy VARCHAR2
782 , p4_a41 in out nocopy VARCHAR2
783 , p4_a42 in out nocopy VARCHAR2
784 , p4_a43 in out nocopy VARCHAR2
786 , x_return_status out nocopy VARCHAR2
787 , x_msg_count out nocopy NUMBER
788 , x_msg_data out nocopy VARCHAR2
789 )
790
791 as
792 ddp_plan_element cn_plan_element_pvt.plan_element_rec_type;
793 ddindx binary_integer; indx binary_integer;
794 begin
795
796 -- copy data to the local IN or IN-OUT args, if any
797
798
799
800
801 ddp_plan_element.quota_id := p4_a0;
802 ddp_plan_element.name := p4_a1;
803 ddp_plan_element.description := p4_a2;
804 ddp_plan_element.quota_type_code := p4_a3;
805 ddp_plan_element.target := p4_a4;
806 ddp_plan_element.payment_amount := p4_a5;
807 ddp_plan_element.performance_goal := p4_a6;
808 ddp_plan_element.incentive_type_code := p4_a7;
809 ddp_plan_element.start_date := p4_a8;
810 ddp_plan_element.end_date := p4_a9;
811 ddp_plan_element.credit_type_id := p4_a10;
812 ddp_plan_element.interval_type_id := p4_a11;
813 ddp_plan_element.calc_formula_id := p4_a12;
814 ddp_plan_element.liability_account_id := p4_a13;
815 ddp_plan_element.expense_account_id := p4_a14;
816 ddp_plan_element.liability_account_cc := p4_a15;
817 ddp_plan_element.expense_account_cc := p4_a16;
818 ddp_plan_element.vesting_flag := p4_a17;
819 ddp_plan_element.quota_group_code := p4_a18;
820 ddp_plan_element.payment_group_code := p4_a19;
821 ddp_plan_element.attribute_category := p4_a20;
822 ddp_plan_element.attribute1 := p4_a21;
823 ddp_plan_element.attribute2 := p4_a22;
824 ddp_plan_element.attribute3 := p4_a23;
825 ddp_plan_element.attribute4 := p4_a24;
826 ddp_plan_element.attribute5 := p4_a25;
827 ddp_plan_element.attribute6 := p4_a26;
828 ddp_plan_element.attribute7 := p4_a27;
829 ddp_plan_element.attribute8 := p4_a28;
830 ddp_plan_element.attribute9 := p4_a29;
831 ddp_plan_element.attribute10 := p4_a30;
832 ddp_plan_element.attribute11 := p4_a31;
833 ddp_plan_element.attribute12 := p4_a32;
834 ddp_plan_element.attribute13 := p4_a33;
835 ddp_plan_element.attribute14 := p4_a34;
836 ddp_plan_element.attribute15 := p4_a35;
837 ddp_plan_element.addup_from_rev_class_flag := p4_a36;
838 ddp_plan_element.payee_assign_flag := p4_a37;
839 ddp_plan_element.package_name := p4_a38;
840 ddp_plan_element.object_version_number := p4_a39;
841 ddp_plan_element.org_id := p4_a40;
842 ddp_plan_element.indirect_credit_code := p4_a41;
843 ddp_plan_element.quota_status := p4_a42;
844 ddp_plan_element.call_type := p4_a43;
845 ddp_plan_element.sreps_enddated_flag := p4_a44;
846
847
848
849
850 -- here's the delegated call to the old PL/SQL routine
851 cn_plan_element_pvt.delete_plan_element(p_api_version,
852 p_init_msg_list,
853 p_commit,
854 p_validation_level,
855 ddp_plan_element,
856 x_return_status,
857 x_msg_count,
858 x_msg_data);
859
860 -- copy data back from the local variables to OUT or IN-OUT args, if any
861
862
863
864
865 p4_a0 := ddp_plan_element.quota_id;
866 p4_a1 := ddp_plan_element.name;
867 p4_a2 := ddp_plan_element.description;
868 p4_a3 := ddp_plan_element.quota_type_code;
869 p4_a4 := ddp_plan_element.target;
870 p4_a5 := ddp_plan_element.payment_amount;
871 p4_a6 := ddp_plan_element.performance_goal;
872 p4_a7 := ddp_plan_element.incentive_type_code;
873 p4_a8 := ddp_plan_element.start_date;
874 p4_a9 := ddp_plan_element.end_date;
875 p4_a10 := ddp_plan_element.credit_type_id;
876 p4_a11 := ddp_plan_element.interval_type_id;
877 p4_a12 := ddp_plan_element.calc_formula_id;
878 p4_a13 := ddp_plan_element.liability_account_id;
879 p4_a14 := ddp_plan_element.expense_account_id;
880 p4_a15 := ddp_plan_element.liability_account_cc;
881 p4_a16 := ddp_plan_element.expense_account_cc;
882 p4_a17 := ddp_plan_element.vesting_flag;
883 p4_a18 := ddp_plan_element.quota_group_code;
884 p4_a19 := ddp_plan_element.payment_group_code;
885 p4_a20 := ddp_plan_element.attribute_category;
886 p4_a21 := ddp_plan_element.attribute1;
887 p4_a22 := ddp_plan_element.attribute2;
888 p4_a23 := ddp_plan_element.attribute3;
889 p4_a24 := ddp_plan_element.attribute4;
890 p4_a25 := ddp_plan_element.attribute5;
891 p4_a26 := ddp_plan_element.attribute6;
892 p4_a27 := ddp_plan_element.attribute7;
893 p4_a28 := ddp_plan_element.attribute8;
894 p4_a29 := ddp_plan_element.attribute9;
895 p4_a30 := ddp_plan_element.attribute10;
896 p4_a31 := ddp_plan_element.attribute11;
897 p4_a32 := ddp_plan_element.attribute12;
898 p4_a33 := ddp_plan_element.attribute13;
899 p4_a34 := ddp_plan_element.attribute14;
900 p4_a35 := ddp_plan_element.attribute15;
901 p4_a36 := ddp_plan_element.addup_from_rev_class_flag;
902 p4_a37 := ddp_plan_element.payee_assign_flag;
903 p4_a38 := ddp_plan_element.package_name;
904 p4_a39 := ddp_plan_element.object_version_number;
905 p4_a40 := ddp_plan_element.org_id;
906 p4_a41 := ddp_plan_element.indirect_credit_code;
910
907 p4_a42 := ddp_plan_element.quota_status;
908 p4_a43 := ddp_plan_element.call_type;
909 p4_a44 := ddp_plan_element.sreps_enddated_flag;
911
912
913 end;
914
915 procedure duplicate_plan_element(p_api_version NUMBER
916 , p_init_msg_list VARCHAR2
917 , p_commit VARCHAR2
918 , p_validation_level NUMBER
919 , p_quota_id NUMBER
920 , p5_a0 out nocopy NUMBER
921 , p5_a1 out nocopy VARCHAR2
922 , p5_a2 out nocopy VARCHAR2
923 , p5_a3 out nocopy VARCHAR2
924 , p5_a4 out nocopy NUMBER
925 , p5_a5 out nocopy NUMBER
926 , p5_a6 out nocopy NUMBER
927 , p5_a7 out nocopy VARCHAR2
928 , p5_a8 out nocopy DATE
929 , p5_a9 out nocopy DATE
930 , p5_a10 out nocopy NUMBER
931 , p5_a11 out nocopy NUMBER
932 , p5_a12 out nocopy NUMBER
933 , p5_a13 out nocopy NUMBER
934 , p5_a14 out nocopy NUMBER
935 , p5_a15 out nocopy VARCHAR
936 , p5_a16 out nocopy VARCHAR
937 , p5_a17 out nocopy VARCHAR2
938 , p5_a18 out nocopy VARCHAR2
939 , p5_a19 out nocopy VARCHAR2
940 , p5_a20 out nocopy VARCHAR2
941 , p5_a21 out nocopy VARCHAR2
942 , p5_a22 out nocopy VARCHAR2
943 , p5_a23 out nocopy VARCHAR2
944 , p5_a24 out nocopy VARCHAR2
945 , p5_a25 out nocopy VARCHAR2
946 , p5_a26 out nocopy VARCHAR2
947 , p5_a27 out nocopy VARCHAR2
948 , p5_a28 out nocopy VARCHAR2
949 , p5_a29 out nocopy VARCHAR2
950 , p5_a30 out nocopy VARCHAR2
951 , p5_a31 out nocopy VARCHAR2
952 , p5_a32 out nocopy VARCHAR2
953 , p5_a33 out nocopy VARCHAR2
954 , p5_a34 out nocopy VARCHAR2
955 , p5_a35 out nocopy VARCHAR2
956 , p5_a36 out nocopy VARCHAR2
957 , p5_a37 out nocopy VARCHAR2
958 , p5_a38 out nocopy VARCHAR2
959 , p5_a39 out nocopy NUMBER
960 , p5_a40 out nocopy NUMBER
961 , p5_a41 out nocopy VARCHAR2
962 , p5_a42 out nocopy VARCHAR2
963 , p5_a43 out nocopy VARCHAR2
964 , p5_a44 out nocopy VARCHAR2
965 , x_return_status out nocopy VARCHAR2
966 , x_msg_count out nocopy NUMBER
967 , x_msg_data out nocopy VARCHAR2
968 , x_loading_status out nocopy VARCHAR2
969 )
970
971 as
972 ddx_plan_element cn_plan_element_pvt.plan_element_rec_type;
973 ddindx binary_integer; indx binary_integer;
974 begin
975
976 -- copy data to the local IN or IN-OUT args, if any
977
978
979
980
981
982
983
984
985
986
987 -- here's the delegated call to the old PL/SQL routine
988 cn_plan_element_pvt.duplicate_plan_element(p_api_version,
989 p_init_msg_list,
990 p_commit,
991 p_validation_level,
992 p_quota_id,
993 ddx_plan_element,
994 x_return_status,
995 x_msg_count,
996 x_msg_data,
997 x_loading_status);
998
999 -- copy data back from the local variables to OUT or IN-OUT args, if any
1000
1001
1002
1003
1004
1005 p5_a0 := ddx_plan_element.quota_id;
1006 p5_a1 := ddx_plan_element.name;
1007 p5_a2 := ddx_plan_element.description;
1008 p5_a3 := ddx_plan_element.quota_type_code;
1009 p5_a4 := ddx_plan_element.target;
1010 p5_a5 := ddx_plan_element.payment_amount;
1011 p5_a6 := ddx_plan_element.performance_goal;
1012 p5_a7 := ddx_plan_element.incentive_type_code;
1013 p5_a8 := ddx_plan_element.start_date;
1014 p5_a9 := ddx_plan_element.end_date;
1015 p5_a10 := ddx_plan_element.credit_type_id;
1016 p5_a11 := ddx_plan_element.interval_type_id;
1017 p5_a12 := ddx_plan_element.calc_formula_id;
1018 p5_a13 := ddx_plan_element.liability_account_id;
1019 p5_a14 := ddx_plan_element.expense_account_id;
1020 p5_a15 := ddx_plan_element.liability_account_cc;
1021 p5_a16 := ddx_plan_element.expense_account_cc;
1022 p5_a17 := ddx_plan_element.vesting_flag;
1023 p5_a18 := ddx_plan_element.quota_group_code;
1024 p5_a19 := ddx_plan_element.payment_group_code;
1025 p5_a20 := ddx_plan_element.attribute_category;
1026 p5_a21 := ddx_plan_element.attribute1;
1027 p5_a22 := ddx_plan_element.attribute2;
1028 p5_a23 := ddx_plan_element.attribute3;
1029 p5_a24 := ddx_plan_element.attribute4;
1030 p5_a25 := ddx_plan_element.attribute5;
1031 p5_a26 := ddx_plan_element.attribute6;
1032 p5_a27 := ddx_plan_element.attribute7;
1033 p5_a28 := ddx_plan_element.attribute8;
1034 p5_a29 := ddx_plan_element.attribute9;
1035 p5_a30 := ddx_plan_element.attribute10;
1036 p5_a31 := ddx_plan_element.attribute11;
1037 p5_a32 := ddx_plan_element.attribute12;
1038 p5_a33 := ddx_plan_element.attribute13;
1039 p5_a34 := ddx_plan_element.attribute14;
1040 p5_a35 := ddx_plan_element.attribute15;
1041 p5_a36 := ddx_plan_element.addup_from_rev_class_flag;
1042 p5_a37 := ddx_plan_element.payee_assign_flag;
1043 p5_a38 := ddx_plan_element.package_name;
1044 p5_a39 := ddx_plan_element.object_version_number;
1045 p5_a40 := ddx_plan_element.org_id;
1046 p5_a41 := ddx_plan_element.indirect_credit_code;
1047 p5_a42 := ddx_plan_element.quota_status;
1048 p5_a43 := ddx_plan_element.call_type;
1052
1049 p5_a44 := ddx_plan_element.sreps_enddated_flag;
1050
1051
1053
1054 end;
1055
1056 procedure validate_plan_element(p_api_version NUMBER
1057 , p_init_msg_list VARCHAR2
1058 , p_commit VARCHAR2
1059 , p_validation_level NUMBER
1060 , p_action VARCHAR2
1061 , p5_a0 in out nocopy NUMBER
1062 , p5_a1 in out nocopy VARCHAR2
1063 , p5_a2 in out nocopy VARCHAR2
1064 , p5_a3 in out nocopy VARCHAR2
1065 , p5_a4 in out nocopy NUMBER
1066 , p5_a5 in out nocopy NUMBER
1067 , p5_a6 in out nocopy NUMBER
1068 , p5_a7 in out nocopy VARCHAR2
1069 , p5_a8 in out nocopy DATE
1070 , p5_a9 in out nocopy DATE
1071 , p5_a10 in out nocopy NUMBER
1072 , p5_a11 in out nocopy NUMBER
1073 , p5_a12 in out nocopy NUMBER
1074 , p5_a13 in out nocopy NUMBER
1075 , p5_a14 in out nocopy NUMBER
1076 , p5_a15 in out nocopy VARCHAR
1077 , p5_a16 in out nocopy VARCHAR
1078 , p5_a17 in out nocopy VARCHAR2
1079 , p5_a18 in out nocopy VARCHAR2
1080 , p5_a19 in out nocopy VARCHAR2
1081 , p5_a20 in out nocopy VARCHAR2
1082 , p5_a21 in out nocopy VARCHAR2
1083 , p5_a22 in out nocopy VARCHAR2
1084 , p5_a23 in out nocopy VARCHAR2
1085 , p5_a24 in out nocopy VARCHAR2
1086 , p5_a25 in out nocopy VARCHAR2
1087 , p5_a26 in out nocopy VARCHAR2
1088 , p5_a27 in out nocopy VARCHAR2
1089 , p5_a28 in out nocopy VARCHAR2
1090 , p5_a29 in out nocopy VARCHAR2
1091 , p5_a30 in out nocopy VARCHAR2
1092 , p5_a31 in out nocopy VARCHAR2
1093 , p5_a32 in out nocopy VARCHAR2
1094 , p5_a33 in out nocopy VARCHAR2
1095 , p5_a34 in out nocopy VARCHAR2
1096 , p5_a35 in out nocopy VARCHAR2
1097 , p5_a36 in out nocopy VARCHAR2
1098 , p5_a37 in out nocopy VARCHAR2
1099 , p5_a38 in out nocopy VARCHAR2
1100 , p5_a39 in out nocopy NUMBER
1101 , p5_a40 in out nocopy NUMBER
1102 , p5_a41 in out nocopy VARCHAR2
1103 , p5_a42 in out nocopy VARCHAR2
1104 , p5_a43 in out nocopy VARCHAR2
1105 , p5_a44 in out nocopy VARCHAR2
1106 , p6_a0 NUMBER
1107 , p6_a1 VARCHAR2
1108 , p6_a2 VARCHAR2
1109 , p6_a3 VARCHAR2
1110 , p6_a4 NUMBER
1111 , p6_a5 NUMBER
1112 , p6_a6 NUMBER
1113 , p6_a7 VARCHAR2
1114 , p6_a8 DATE
1115 , p6_a9 DATE
1116 , p6_a10 NUMBER
1117 , p6_a11 NUMBER
1118 , p6_a12 NUMBER
1119 , p6_a13 NUMBER
1120 , p6_a14 NUMBER
1121 , p6_a15 VARCHAR
1122 , p6_a16 VARCHAR
1123 , p6_a17 VARCHAR2
1124 , p6_a18 VARCHAR2
1125 , p6_a19 VARCHAR2
1126 , p6_a20 VARCHAR2
1127 , p6_a21 VARCHAR2
1128 , p6_a22 VARCHAR2
1129 , p6_a23 VARCHAR2
1130 , p6_a24 VARCHAR2
1131 , p6_a25 VARCHAR2
1132 , p6_a26 VARCHAR2
1133 , p6_a27 VARCHAR2
1134 , p6_a28 VARCHAR2
1135 , p6_a29 VARCHAR2
1136 , p6_a30 VARCHAR2
1137 , p6_a31 VARCHAR2
1138 , p6_a32 VARCHAR2
1139 , p6_a33 VARCHAR2
1140 , p6_a34 VARCHAR2
1141 , p6_a35 VARCHAR2
1142 , p6_a36 VARCHAR2
1143 , p6_a37 VARCHAR2
1144 , p6_a38 VARCHAR2
1145 , p6_a39 NUMBER
1146 , p6_a40 NUMBER
1147 , p6_a41 VARCHAR2
1148 , p6_a42 VARCHAR2
1149 , p6_a43 VARCHAR2
1150 , p6_a44 VARCHAR2
1151 , x_return_status out nocopy VARCHAR2
1152 , x_msg_count out nocopy NUMBER
1153 , x_msg_data out nocopy VARCHAR2
1154 )
1155
1156 as
1157 ddp_plan_element cn_plan_element_pvt.plan_element_rec_type;
1158 ddp_old_plan_element cn_plan_element_pvt.plan_element_rec_type;
1159 ddindx binary_integer; indx binary_integer;
1160 begin
1161
1162 -- copy data to the local IN or IN-OUT args, if any
1163
1164
1165
1166
1167
1168 ddp_plan_element.quota_id := p5_a0;
1169 ddp_plan_element.name := p5_a1;
1170 ddp_plan_element.description := p5_a2;
1171 ddp_plan_element.quota_type_code := p5_a3;
1172 ddp_plan_element.target := p5_a4;
1173 ddp_plan_element.payment_amount := p5_a5;
1174 ddp_plan_element.performance_goal := p5_a6;
1175 ddp_plan_element.incentive_type_code := p5_a7;
1176 ddp_plan_element.start_date := p5_a8;
1177 ddp_plan_element.end_date := p5_a9;
1178 ddp_plan_element.credit_type_id := p5_a10;
1179 ddp_plan_element.interval_type_id := p5_a11;
1180 ddp_plan_element.calc_formula_id := p5_a12;
1181 ddp_plan_element.liability_account_id := p5_a13;
1182 ddp_plan_element.expense_account_id := p5_a14;
1183 ddp_plan_element.liability_account_cc := p5_a15;
1184 ddp_plan_element.expense_account_cc := p5_a16;
1185 ddp_plan_element.vesting_flag := p5_a17;
1186 ddp_plan_element.quota_group_code := p5_a18;
1187 ddp_plan_element.payment_group_code := p5_a19;
1188 ddp_plan_element.attribute_category := p5_a20;
1189 ddp_plan_element.attribute1 := p5_a21;
1190 ddp_plan_element.attribute2 := p5_a22;
1191 ddp_plan_element.attribute3 := p5_a23;
1192 ddp_plan_element.attribute4 := p5_a24;
1193 ddp_plan_element.attribute5 := p5_a25;
1194 ddp_plan_element.attribute6 := p5_a26;
1195 ddp_plan_element.attribute7 := p5_a27;
1196 ddp_plan_element.attribute8 := p5_a28;
1197 ddp_plan_element.attribute9 := p5_a29;
1198 ddp_plan_element.attribute10 := p5_a30;
1199 ddp_plan_element.attribute11 := p5_a31;
1200 ddp_plan_element.attribute12 := p5_a32;
1201 ddp_plan_element.attribute13 := p5_a33;
1202 ddp_plan_element.attribute14 := p5_a34;
1203 ddp_plan_element.attribute15 := p5_a35;
1204 ddp_plan_element.addup_from_rev_class_flag := p5_a36;
1205 ddp_plan_element.payee_assign_flag := p5_a37;
1206 ddp_plan_element.package_name := p5_a38;
1207 ddp_plan_element.object_version_number := p5_a39;
1208 ddp_plan_element.org_id := p5_a40;
1209 ddp_plan_element.indirect_credit_code := p5_a41;
1210 ddp_plan_element.quota_status := p5_a42;
1211 ddp_plan_element.call_type := p5_a43;
1212 ddp_plan_element.sreps_enddated_flag := p5_a44;
1213
1214 ddp_old_plan_element.quota_id := p6_a0;
1215 ddp_old_plan_element.name := p6_a1;
1216 ddp_old_plan_element.description := p6_a2;
1217 ddp_old_plan_element.quota_type_code := p6_a3;
1218 ddp_old_plan_element.target := p6_a4;
1219 ddp_old_plan_element.payment_amount := p6_a5;
1220 ddp_old_plan_element.performance_goal := p6_a6;
1221 ddp_old_plan_element.incentive_type_code := p6_a7;
1222 ddp_old_plan_element.start_date := p6_a8;
1223 ddp_old_plan_element.end_date := p6_a9;
1224 ddp_old_plan_element.credit_type_id := p6_a10;
1225 ddp_old_plan_element.interval_type_id := p6_a11;
1226 ddp_old_plan_element.calc_formula_id := p6_a12;
1227 ddp_old_plan_element.liability_account_id := p6_a13;
1228 ddp_old_plan_element.expense_account_id := p6_a14;
1229 ddp_old_plan_element.liability_account_cc := p6_a15;
1230 ddp_old_plan_element.expense_account_cc := p6_a16;
1231 ddp_old_plan_element.vesting_flag := p6_a17;
1232 ddp_old_plan_element.quota_group_code := p6_a18;
1233 ddp_old_plan_element.payment_group_code := p6_a19;
1234 ddp_old_plan_element.attribute_category := p6_a20;
1235 ddp_old_plan_element.attribute1 := p6_a21;
1236 ddp_old_plan_element.attribute2 := p6_a22;
1237 ddp_old_plan_element.attribute3 := p6_a23;
1238 ddp_old_plan_element.attribute4 := p6_a24;
1239 ddp_old_plan_element.attribute5 := p6_a25;
1240 ddp_old_plan_element.attribute6 := p6_a26;
1241 ddp_old_plan_element.attribute7 := p6_a27;
1242 ddp_old_plan_element.attribute8 := p6_a28;
1243 ddp_old_plan_element.attribute9 := p6_a29;
1244 ddp_old_plan_element.attribute10 := p6_a30;
1245 ddp_old_plan_element.attribute11 := p6_a31;
1246 ddp_old_plan_element.attribute12 := p6_a32;
1247 ddp_old_plan_element.attribute13 := p6_a33;
1248 ddp_old_plan_element.attribute14 := p6_a34;
1249 ddp_old_plan_element.attribute15 := p6_a35;
1250 ddp_old_plan_element.addup_from_rev_class_flag := p6_a36;
1251 ddp_old_plan_element.payee_assign_flag := p6_a37;
1252 ddp_old_plan_element.package_name := p6_a38;
1253 ddp_old_plan_element.object_version_number := p6_a39;
1254 ddp_old_plan_element.org_id := p6_a40;
1255 ddp_old_plan_element.indirect_credit_code := p6_a41;
1256 ddp_old_plan_element.quota_status := p6_a42;
1257 ddp_old_plan_element.call_type := p6_a43;
1258 ddp_old_plan_element.sreps_enddated_flag := p6_a44;
1259
1260
1261
1262
1263 -- here's the delegated call to the old PL/SQL routine
1264 cn_plan_element_pvt.validate_plan_element(p_api_version,
1265 p_init_msg_list,
1266 p_commit,
1267 p_validation_level,
1268 p_action,
1269 ddp_plan_element,
1270 ddp_old_plan_element,
1271 x_return_status,
1272 x_msg_count,
1273 x_msg_data);
1274
1275 -- copy data back from the local variables to OUT or IN-OUT args, if any
1276
1277
1278
1279
1280
1281 p5_a0 := ddp_plan_element.quota_id;
1282 p5_a1 := ddp_plan_element.name;
1283 p5_a2 := ddp_plan_element.description;
1284 p5_a3 := ddp_plan_element.quota_type_code;
1285 p5_a4 := ddp_plan_element.target;
1286 p5_a5 := ddp_plan_element.payment_amount;
1287 p5_a6 := ddp_plan_element.performance_goal;
1288 p5_a7 := ddp_plan_element.incentive_type_code;
1289 p5_a8 := ddp_plan_element.start_date;
1290 p5_a9 := ddp_plan_element.end_date;
1291 p5_a10 := ddp_plan_element.credit_type_id;
1292 p5_a11 := ddp_plan_element.interval_type_id;
1293 p5_a12 := ddp_plan_element.calc_formula_id;
1294 p5_a13 := ddp_plan_element.liability_account_id;
1295 p5_a14 := ddp_plan_element.expense_account_id;
1296 p5_a15 := ddp_plan_element.liability_account_cc;
1297 p5_a16 := ddp_plan_element.expense_account_cc;
1298 p5_a17 := ddp_plan_element.vesting_flag;
1299 p5_a18 := ddp_plan_element.quota_group_code;
1300 p5_a19 := ddp_plan_element.payment_group_code;
1301 p5_a20 := ddp_plan_element.attribute_category;
1302 p5_a21 := ddp_plan_element.attribute1;
1303 p5_a22 := ddp_plan_element.attribute2;
1304 p5_a23 := ddp_plan_element.attribute3;
1305 p5_a24 := ddp_plan_element.attribute4;
1306 p5_a25 := ddp_plan_element.attribute5;
1307 p5_a26 := ddp_plan_element.attribute6;
1308 p5_a27 := ddp_plan_element.attribute7;
1309 p5_a28 := ddp_plan_element.attribute8;
1310 p5_a29 := ddp_plan_element.attribute9;
1311 p5_a30 := ddp_plan_element.attribute10;
1312 p5_a31 := ddp_plan_element.attribute11;
1313 p5_a32 := ddp_plan_element.attribute12;
1314 p5_a33 := ddp_plan_element.attribute13;
1315 p5_a34 := ddp_plan_element.attribute14;
1316 p5_a35 := ddp_plan_element.attribute15;
1317 p5_a36 := ddp_plan_element.addup_from_rev_class_flag;
1318 p5_a37 := ddp_plan_element.payee_assign_flag;
1319 p5_a38 := ddp_plan_element.package_name;
1320 p5_a39 := ddp_plan_element.object_version_number;
1321 p5_a40 := ddp_plan_element.org_id;
1322 p5_a41 := ddp_plan_element.indirect_credit_code;
1323 p5_a42 := ddp_plan_element.quota_status;
1324 p5_a43 := ddp_plan_element.call_type;
1325 p5_a44 := ddp_plan_element.sreps_enddated_flag;
1326
1327
1328
1329
1330 end;
1331
1332 end cn_plan_element_pvt_w;