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