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