[Home] [Help]
PACKAGE BODY: APPS.CN_GET_COMM_SUMM_DATA_PVT_W
Source
1 package body cn_get_comm_summ_data_pvt_w as
2 /* $Header: cnwcommb.pls 120.4 2005/10/24 07:22 sjustina noship $ */
3 procedure rosetta_table_copy_in_p1(t out nocopy cn_get_comm_summ_data_pvt.comm_summ_tbl_type, a0 JTF_NUMBER_TABLE
4 , a1 JTF_VARCHAR2_TABLE_100
5 , a2 JTF_VARCHAR2_TABLE_100
6 , a3 JTF_DATE_TABLE
7 , a4 JTF_DATE_TABLE
8 , a5 JTF_NUMBER_TABLE
9 , a6 JTF_NUMBER_TABLE
10 , a7 JTF_NUMBER_TABLE
11 ) as
12 ddindx binary_integer; indx binary_integer;
13 begin
14 if a0 is not null and a0.count > 0 then
15 if a0.count > 0 then
16 indx := a0.first;
17 ddindx := 1;
18 while true loop
19 t(ddindx).srp_plan_assign_id := a0(indx);
20 t(ddindx).role_name := a1(indx);
21 t(ddindx).plan_name := a2(indx);
22 t(ddindx).start_date := a3(indx);
23 t(ddindx).end_date := a4(indx);
24 t(ddindx).ytd_total_earnings := a5(indx);
25 t(ddindx).ptd_total_earnings := a6(indx);
26 t(ddindx).salesrep_id := a7(indx);
27 ddindx := ddindx+1;
28 if a0.last =indx
29 then exit;
30 end if;
31 indx := a0.next(indx);
32 end loop;
33 end if;
34 end if;
35 end rosetta_table_copy_in_p1;
36 procedure rosetta_table_copy_out_p1(t cn_get_comm_summ_data_pvt.comm_summ_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
37 , a1 out nocopy JTF_VARCHAR2_TABLE_100
38 , a2 out nocopy JTF_VARCHAR2_TABLE_100
39 , a3 out nocopy JTF_DATE_TABLE
40 , a4 out nocopy JTF_DATE_TABLE
41 , a5 out nocopy JTF_NUMBER_TABLE
42 , a6 out nocopy JTF_NUMBER_TABLE
43 , a7 out nocopy JTF_NUMBER_TABLE
44 ) as
45 ddindx binary_integer; indx binary_integer;
46 begin
47 if t is null or t.count = 0 then
48 a0 := JTF_NUMBER_TABLE();
49 a1 := JTF_VARCHAR2_TABLE_100();
50 a2 := JTF_VARCHAR2_TABLE_100();
51 a3 := JTF_DATE_TABLE();
52 a4 := JTF_DATE_TABLE();
53 a5 := JTF_NUMBER_TABLE();
54 a6 := JTF_NUMBER_TABLE();
55 a7 := JTF_NUMBER_TABLE();
56 else
57 a0 := JTF_NUMBER_TABLE();
58 a1 := JTF_VARCHAR2_TABLE_100();
59 a2 := JTF_VARCHAR2_TABLE_100();
60 a3 := JTF_DATE_TABLE();
61 a4 := JTF_DATE_TABLE();
62 a5 := JTF_NUMBER_TABLE();
63 a6 := JTF_NUMBER_TABLE();
64 a7 := JTF_NUMBER_TABLE();
65 if t.count > 0 then
66 a0.extend(t.count);
67 a1.extend(t.count);
68 a2.extend(t.count);
69 a3.extend(t.count);
70 a4.extend(t.count);
71 a5.extend(t.count);
72 a6.extend(t.count);
73 a7.extend(t.count);
74 ddindx := t.first;
75 indx := 1;
76 while true loop
77 a0(indx) := t(ddindx).srp_plan_assign_id;
78 a1(indx) := t(ddindx).role_name;
79 a2(indx) := t(ddindx).plan_name;
80 a3(indx) := t(ddindx).start_date;
81 a4(indx) := t(ddindx).end_date;
82 a5(indx) := t(ddindx).ytd_total_earnings;
83 a6(indx) := t(ddindx).ptd_total_earnings;
84 a7(indx) := t(ddindx).salesrep_id;
85 indx := indx+1;
86 if t.last =ddindx
87 then exit;
88 end if;
89 ddindx := t.next(ddindx);
90 end loop;
91 end if;
92 end if;
93 end rosetta_table_copy_out_p1;
94
95 procedure rosetta_table_copy_in_p2(t out nocopy cn_get_comm_summ_data_pvt.salesrep_tbl_type, a0 JTF_NUMBER_TABLE) as
96 ddindx binary_integer; indx binary_integer;
97 begin
98 if a0 is not null and a0.count > 0 then
99 if a0.count > 0 then
100 indx := a0.first;
101 ddindx := 1;
102 while true loop
103 t(ddindx) := a0(indx);
104 ddindx := ddindx+1;
105 if a0.last =indx
106 then exit;
107 end if;
108 indx := a0.next(indx);
109 end loop;
110 end if;
111 end if;
112 end rosetta_table_copy_in_p2;
113 procedure rosetta_table_copy_out_p2(t cn_get_comm_summ_data_pvt.salesrep_tbl_type, a0 out nocopy JTF_NUMBER_TABLE) as
114 ddindx binary_integer; indx binary_integer;
115 begin
116 if t is null or t.count = 0 then
117 a0 := JTF_NUMBER_TABLE();
118 else
119 a0 := JTF_NUMBER_TABLE();
120 if t.count > 0 then
121 a0.extend(t.count);
122 ddindx := t.first;
123 indx := 1;
124 while true loop
125 a0(indx) := t(ddindx);
126 indx := indx+1;
127 if t.last =ddindx
128 then exit;
129 end if;
130 ddindx := t.next(ddindx);
131 end loop;
132 end if;
133 end if;
134 end rosetta_table_copy_out_p2;
135
136 procedure rosetta_table_copy_in_p3(t out nocopy cn_get_comm_summ_data_pvt.group_code_tbl_type, a0 JTF_VARCHAR2_TABLE_100) as
137 ddindx binary_integer; indx binary_integer;
138 begin
139 if a0 is not null and a0.count > 0 then
140 if a0.count > 0 then
141 indx := a0.first;
142 ddindx := 1;
143 while true loop
144 t(ddindx) := a0(indx);
145 ddindx := ddindx+1;
146 if a0.last =indx
147 then exit;
148 end if;
149 indx := a0.next(indx);
150 end loop;
151 end if;
152 end if;
153 end rosetta_table_copy_in_p3;
154 procedure rosetta_table_copy_out_p3(t cn_get_comm_summ_data_pvt.group_code_tbl_type, a0 out nocopy JTF_VARCHAR2_TABLE_100) as
155 ddindx binary_integer; indx binary_integer;
156 begin
157 if t is null or t.count = 0 then
158 a0 := JTF_VARCHAR2_TABLE_100();
159 else
160 a0 := JTF_VARCHAR2_TABLE_100();
161 if t.count > 0 then
162 a0.extend(t.count);
163 ddindx := t.first;
164 indx := 1;
165 while true loop
166 a0(indx) := t(ddindx);
167 indx := indx+1;
168 if t.last =ddindx
169 then exit;
170 end if;
171 ddindx := t.next(ddindx);
172 end loop;
173 end if;
174 end if;
175 end rosetta_table_copy_out_p3;
176
177 procedure rosetta_table_copy_in_p5(t out nocopy cn_get_comm_summ_data_pvt.pe_info_tbl_type, a0 JTF_NUMBER_TABLE
178 , a1 JTF_VARCHAR2_TABLE_100
179 , a2 JTF_NUMBER_TABLE
180 , a3 JTF_NUMBER_TABLE
181 , a4 JTF_NUMBER_TABLE
182 , a5 JTF_NUMBER_TABLE
183 , a6 JTF_NUMBER_TABLE
184 , a7 JTF_NUMBER_TABLE
185 , a8 JTF_NUMBER_TABLE
186 , a9 JTF_NUMBER_TABLE
187 , a10 JTF_NUMBER_TABLE
188 , a11 JTF_NUMBER_TABLE
189 ) as
190 ddindx binary_integer; indx binary_integer;
191 begin
192 if a0 is not null and a0.count > 0 then
193 if a0.count > 0 then
194 indx := a0.first;
195 ddindx := 1;
196 while true loop
197 t(ddindx).srp_plan_assign_id := a0(indx);
198 t(ddindx).quota_group_code := a1(indx);
199 t(ddindx).x_annual_quota := a2(indx);
200 t(ddindx).x_pct_annual_quota := a3(indx);
201 t(ddindx).x_ytd_target := a4(indx);
202 t(ddindx).x_ytd_credit := a5(indx);
203 t(ddindx).x_ytd_earnings := a6(indx);
204 t(ddindx).x_ptd_target := a7(indx);
205 t(ddindx).x_ptd_credit := a8(indx);
206 t(ddindx).x_ptd_earnings := a9(indx);
207 t(ddindx).x_itd_unachieved_quota := a10(indx);
208 t(ddindx).x_itd_tot_target := a11(indx);
209 ddindx := ddindx+1;
210 if a0.last =indx
211 then exit;
212 end if;
213 indx := a0.next(indx);
214 end loop;
215 end if;
216 end if;
217 end rosetta_table_copy_in_p5;
218 procedure rosetta_table_copy_out_p5(t cn_get_comm_summ_data_pvt.pe_info_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
219 , a1 out nocopy JTF_VARCHAR2_TABLE_100
220 , a2 out nocopy JTF_NUMBER_TABLE
221 , a3 out nocopy JTF_NUMBER_TABLE
222 , a4 out nocopy JTF_NUMBER_TABLE
223 , a5 out nocopy JTF_NUMBER_TABLE
224 , a6 out nocopy JTF_NUMBER_TABLE
225 , a7 out nocopy JTF_NUMBER_TABLE
226 , a8 out nocopy JTF_NUMBER_TABLE
227 , a9 out nocopy JTF_NUMBER_TABLE
228 , a10 out nocopy JTF_NUMBER_TABLE
229 , a11 out nocopy JTF_NUMBER_TABLE
230 ) as
231 ddindx binary_integer; indx binary_integer;
232 begin
233 if t is null or t.count = 0 then
234 a0 := JTF_NUMBER_TABLE();
235 a1 := JTF_VARCHAR2_TABLE_100();
236 a2 := JTF_NUMBER_TABLE();
237 a3 := JTF_NUMBER_TABLE();
238 a4 := JTF_NUMBER_TABLE();
239 a5 := JTF_NUMBER_TABLE();
240 a6 := JTF_NUMBER_TABLE();
241 a7 := JTF_NUMBER_TABLE();
242 a8 := JTF_NUMBER_TABLE();
243 a9 := JTF_NUMBER_TABLE();
244 a10 := JTF_NUMBER_TABLE();
245 a11 := JTF_NUMBER_TABLE();
246 else
247 a0 := JTF_NUMBER_TABLE();
248 a1 := JTF_VARCHAR2_TABLE_100();
249 a2 := JTF_NUMBER_TABLE();
250 a3 := JTF_NUMBER_TABLE();
251 a4 := JTF_NUMBER_TABLE();
252 a5 := JTF_NUMBER_TABLE();
253 a6 := JTF_NUMBER_TABLE();
254 a7 := JTF_NUMBER_TABLE();
255 a8 := JTF_NUMBER_TABLE();
256 a9 := JTF_NUMBER_TABLE();
257 a10 := JTF_NUMBER_TABLE();
258 a11 := JTF_NUMBER_TABLE();
259 if t.count > 0 then
260 a0.extend(t.count);
261 a1.extend(t.count);
262 a2.extend(t.count);
263 a3.extend(t.count);
264 a4.extend(t.count);
265 a5.extend(t.count);
266 a6.extend(t.count);
267 a7.extend(t.count);
268 a8.extend(t.count);
269 a9.extend(t.count);
270 a10.extend(t.count);
271 a11.extend(t.count);
272 ddindx := t.first;
273 indx := 1;
274 while true loop
275 a0(indx) := t(ddindx).srp_plan_assign_id;
276 a1(indx) := t(ddindx).quota_group_code;
277 a2(indx) := t(ddindx).x_annual_quota;
278 a3(indx) := t(ddindx).x_pct_annual_quota;
279 a4(indx) := t(ddindx).x_ytd_target;
280 a5(indx) := t(ddindx).x_ytd_credit;
281 a6(indx) := t(ddindx).x_ytd_earnings;
282 a7(indx) := t(ddindx).x_ptd_target;
283 a8(indx) := t(ddindx).x_ptd_credit;
284 a9(indx) := t(ddindx).x_ptd_earnings;
285 a10(indx) := t(ddindx).x_itd_unachieved_quota;
286 a11(indx) := t(ddindx).x_itd_tot_target;
287 indx := indx+1;
288 if t.last =ddindx
289 then exit;
290 end if;
291 ddindx := t.next(ddindx);
292 end loop;
293 end if;
294 end if;
295 end rosetta_table_copy_out_p5;
296
297 procedure rosetta_table_copy_in_p7(t out nocopy cn_get_comm_summ_data_pvt.salesrep_info_tbl_type, a0 JTF_VARCHAR2_TABLE_400
298 , a1 JTF_VARCHAR2_TABLE_100
299 , a2 JTF_VARCHAR2_TABLE_100
300 , a3 JTF_VARCHAR2_TABLE_100
301 , a4 JTF_VARCHAR2_TABLE_100
302 , a5 JTF_NUMBER_TABLE
303 ) as
304 ddindx binary_integer; indx binary_integer;
305 begin
306 if a0 is not null and a0.count > 0 then
307 if a0.count > 0 then
308 indx := a0.first;
309 ddindx := 1;
310 while true loop
311 t(ddindx).x_name := a0(indx);
312 t(ddindx).x_emp_num := a1(indx);
313 t(ddindx).x_cost_center := a2(indx);
314 t(ddindx).x_charge_to_cost_center := a3(indx);
315 t(ddindx).x_analyst_name := a4(indx);
316 t(ddindx).x_salesrep_id := a5(indx);
317 ddindx := ddindx+1;
318 if a0.last =indx
319 then exit;
320 end if;
321 indx := a0.next(indx);
322 end loop;
323 end if;
324 end if;
325 end rosetta_table_copy_in_p7;
326 procedure rosetta_table_copy_out_p7(t cn_get_comm_summ_data_pvt.salesrep_info_tbl_type, a0 out nocopy JTF_VARCHAR2_TABLE_400
327 , a1 out nocopy JTF_VARCHAR2_TABLE_100
331 , a5 out nocopy JTF_NUMBER_TABLE
328 , a2 out nocopy JTF_VARCHAR2_TABLE_100
329 , a3 out nocopy JTF_VARCHAR2_TABLE_100
330 , a4 out nocopy JTF_VARCHAR2_TABLE_100
332 ) as
333 ddindx binary_integer; indx binary_integer;
334 begin
335 if t is null or t.count = 0 then
336 a0 := JTF_VARCHAR2_TABLE_400();
337 a1 := JTF_VARCHAR2_TABLE_100();
338 a2 := JTF_VARCHAR2_TABLE_100();
339 a3 := JTF_VARCHAR2_TABLE_100();
340 a4 := JTF_VARCHAR2_TABLE_100();
341 a5 := JTF_NUMBER_TABLE();
342 else
343 a0 := JTF_VARCHAR2_TABLE_400();
344 a1 := JTF_VARCHAR2_TABLE_100();
345 a2 := JTF_VARCHAR2_TABLE_100();
346 a3 := JTF_VARCHAR2_TABLE_100();
347 a4 := JTF_VARCHAR2_TABLE_100();
348 a5 := JTF_NUMBER_TABLE();
349 if t.count > 0 then
350 a0.extend(t.count);
351 a1.extend(t.count);
352 a2.extend(t.count);
353 a3.extend(t.count);
354 a4.extend(t.count);
355 a5.extend(t.count);
356 ddindx := t.first;
357 indx := 1;
358 while true loop
359 a0(indx) := t(ddindx).x_name;
360 a1(indx) := t(ddindx).x_emp_num;
361 a2(indx) := t(ddindx).x_cost_center;
362 a3(indx) := t(ddindx).x_charge_to_cost_center;
363 a4(indx) := t(ddindx).x_analyst_name;
364 a5(indx) := t(ddindx).x_salesrep_id;
365 indx := indx+1;
366 if t.last =ddindx
367 then exit;
368 end if;
369 ddindx := t.next(ddindx);
370 end loop;
371 end if;
372 end if;
373 end rosetta_table_copy_out_p7;
374
375 procedure rosetta_table_copy_in_p9(t out nocopy cn_get_comm_summ_data_pvt.pe_ptd_credit_tbl_type, a0 JTF_NUMBER_TABLE
376 , a1 JTF_NUMBER_TABLE
377 ) as
378 ddindx binary_integer; indx binary_integer;
379 begin
380 if a0 is not null and a0.count > 0 then
381 if a0.count > 0 then
382 indx := a0.first;
383 ddindx := 1;
384 while true loop
385 t(ddindx).quota_id := a0(indx);
386 t(ddindx).x_ptd_credit := a1(indx);
387 ddindx := ddindx+1;
388 if a0.last =indx
389 then exit;
390 end if;
391 indx := a0.next(indx);
392 end loop;
393 end if;
394 end if;
395 end rosetta_table_copy_in_p9;
396 procedure rosetta_table_copy_out_p9(t cn_get_comm_summ_data_pvt.pe_ptd_credit_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
397 , a1 out nocopy JTF_NUMBER_TABLE
398 ) as
399 ddindx binary_integer; indx binary_integer;
400 begin
401 if t is null or t.count = 0 then
402 a0 := JTF_NUMBER_TABLE();
403 a1 := JTF_NUMBER_TABLE();
404 else
405 a0 := JTF_NUMBER_TABLE();
406 a1 := JTF_NUMBER_TABLE();
407 if t.count > 0 then
408 a0.extend(t.count);
409 a1.extend(t.count);
410 ddindx := t.first;
411 indx := 1;
412 while true loop
413 a0(indx) := t(ddindx).quota_id;
414 a1(indx) := t(ddindx).x_ptd_credit;
415 indx := indx+1;
416 if t.last =ddindx
417 then exit;
418 end if;
419 ddindx := t.next(ddindx);
420 end loop;
421 end if;
422 end if;
423 end rosetta_table_copy_out_p9;
424
425 procedure get_salesrep_list(p_first NUMBER
426 , p_last NUMBER
427 , p_period_id NUMBER
428 , p_analyst_id NUMBER
429 , p_org_id NUMBER
430 , x_total_rows out nocopy NUMBER
431 , x_salesrep_tbl out nocopy JTF_NUMBER_TABLE
432 )
433
434 as
435 ddx_salesrep_tbl cn_get_comm_summ_data_pvt.salesrep_tbl_type;
436 ddindx binary_integer; indx binary_integer;
437 begin
438
439 -- copy data to the local IN or IN-OUT args, if any
440
441
442
443
444
445
446
447 -- here's the delegated call to the old PL/SQL routine
448 cn_get_comm_summ_data_pvt.get_salesrep_list(p_first,
449 p_last,
450 p_period_id,
451 p_analyst_id,
452 p_org_id,
453 x_total_rows,
454 ddx_salesrep_tbl);
455
456 -- copy data back from the local variables to OUT or IN-OUT args, if any
457
458
459
460
461
462
463 cn_get_comm_summ_data_pvt_w.rosetta_table_copy_out_p2(ddx_salesrep_tbl, x_salesrep_tbl);
464 end;
465
466 procedure get_quota_summary(p_salesrep_id NUMBER
467 , p_period_id NUMBER
468 , p_credit_type_id NUMBER
469 , p_org_id NUMBER
470 , p4_a0 out nocopy JTF_NUMBER_TABLE
471 , p4_a1 out nocopy JTF_VARCHAR2_TABLE_100
472 , p4_a2 out nocopy JTF_VARCHAR2_TABLE_100
473 , p4_a3 out nocopy JTF_DATE_TABLE
474 , p4_a4 out nocopy JTF_DATE_TABLE
475 , p4_a5 out nocopy JTF_NUMBER_TABLE
476 , p4_a6 out nocopy JTF_NUMBER_TABLE
477 , p4_a7 out nocopy JTF_NUMBER_TABLE
478 )
479
480 as
481 ddx_result_tbl cn_get_comm_summ_data_pvt.comm_summ_tbl_type;
482 ddindx binary_integer; indx binary_integer;
483 begin
484
485 -- copy data to the local IN or IN-OUT args, if any
486
487
488
489
490
491 -- here's the delegated call to the old PL/SQL routine
492 cn_get_comm_summ_data_pvt.get_quota_summary(p_salesrep_id,
493 p_period_id,
494 p_credit_type_id,
495 p_org_id,
496 ddx_result_tbl);
497
498 -- copy data back from the local variables to OUT or IN-OUT args, if any
502
499
500
501
503 cn_get_comm_summ_data_pvt_w.rosetta_table_copy_out_p1(ddx_result_tbl, p4_a0
504 , p4_a1
505 , p4_a2
506 , p4_a3
507 , p4_a4
508 , p4_a5
509 , p4_a6
510 , p4_a7
511 );
512 end;
513
514 procedure get_quota_manager_summary(p_period_id NUMBER
515 , p_credit_type_id NUMBER
516 , p_org_id NUMBER
517 , p3_a0 out nocopy JTF_NUMBER_TABLE
518 , p3_a1 out nocopy JTF_VARCHAR2_TABLE_100
519 , p3_a2 out nocopy JTF_VARCHAR2_TABLE_100
520 , p3_a3 out nocopy JTF_DATE_TABLE
521 , p3_a4 out nocopy JTF_DATE_TABLE
522 , p3_a5 out nocopy JTF_NUMBER_TABLE
523 , p3_a6 out nocopy JTF_NUMBER_TABLE
524 , p3_a7 out nocopy JTF_NUMBER_TABLE
525 )
526
527 as
528 ddx_result_tbl cn_get_comm_summ_data_pvt.comm_summ_tbl_type;
529 ddindx binary_integer; indx binary_integer;
530 begin
531
532 -- copy data to the local IN or IN-OUT args, if any
533
534
535
536
537 -- here's the delegated call to the old PL/SQL routine
538 cn_get_comm_summ_data_pvt.get_quota_manager_summary(p_period_id,
539 p_credit_type_id,
540 p_org_id,
541 ddx_result_tbl);
542
543 -- copy data back from the local variables to OUT or IN-OUT args, if any
544
545
546
547 cn_get_comm_summ_data_pvt_w.rosetta_table_copy_out_p1(ddx_result_tbl, p3_a0
548 , p3_a1
549 , p3_a2
550 , p3_a3
551 , p3_a4
552 , p3_a5
553 , p3_a6
554 , p3_a7
555 );
556 end;
557
558 procedure get_quota_analyst_summary(p_period_id NUMBER
559 , p_credit_type_id NUMBER
560 , p_org_id NUMBER
561 , p_analyst_id NUMBER
562 , p4_a0 out nocopy JTF_NUMBER_TABLE
563 , p4_a1 out nocopy JTF_VARCHAR2_TABLE_100
564 , p4_a2 out nocopy JTF_VARCHAR2_TABLE_100
565 , p4_a3 out nocopy JTF_DATE_TABLE
566 , p4_a4 out nocopy JTF_DATE_TABLE
567 , p4_a5 out nocopy JTF_NUMBER_TABLE
568 , p4_a6 out nocopy JTF_NUMBER_TABLE
569 , p4_a7 out nocopy JTF_NUMBER_TABLE
570 )
571
572 as
573 ddx_result_tbl cn_get_comm_summ_data_pvt.comm_summ_tbl_type;
574 ddindx binary_integer; indx binary_integer;
575 begin
576
577 -- copy data to the local IN or IN-OUT args, if any
578
579
580
581
582
583 -- here's the delegated call to the old PL/SQL routine
584 cn_get_comm_summ_data_pvt.get_quota_analyst_summary(p_period_id,
585 p_credit_type_id,
586 p_org_id,
587 p_analyst_id,
588 ddx_result_tbl);
589
590 -- copy data back from the local variables to OUT or IN-OUT args, if any
591
592
593
594
595 cn_get_comm_summ_data_pvt_w.rosetta_table_copy_out_p1(ddx_result_tbl, p4_a0
596 , p4_a1
597 , p4_a2
598 , p4_a3
599 , p4_a4
600 , p4_a5
601 , p4_a6
602 , p4_a7
603 );
604 end;
605
606 procedure get_salesrep_pe_info(p_salesrep_id NUMBER
607 , p_period_id NUMBER
608 , p_credit_type_id NUMBER
609 , p_org_id NUMBER
610 , p4_a0 out nocopy JTF_NUMBER_TABLE
611 , p4_a1 out nocopy JTF_VARCHAR2_TABLE_100
612 , p4_a2 out nocopy JTF_NUMBER_TABLE
613 , p4_a3 out nocopy JTF_NUMBER_TABLE
614 , p4_a4 out nocopy JTF_NUMBER_TABLE
615 , p4_a5 out nocopy JTF_NUMBER_TABLE
616 , p4_a6 out nocopy JTF_NUMBER_TABLE
617 , p4_a7 out nocopy JTF_NUMBER_TABLE
618 , p4_a8 out nocopy JTF_NUMBER_TABLE
619 , p4_a9 out nocopy JTF_NUMBER_TABLE
620 , p4_a10 out nocopy JTF_NUMBER_TABLE
621 , p4_a11 out nocopy JTF_NUMBER_TABLE
622 )
623
624 as
625 ddx_result_tbl cn_get_comm_summ_data_pvt.pe_info_tbl_type;
626 ddindx binary_integer; indx binary_integer;
627 begin
628
629 -- copy data to the local IN or IN-OUT args, if any
630
631
632
633
634
635 -- here's the delegated call to the old PL/SQL routine
636 cn_get_comm_summ_data_pvt.get_salesrep_pe_info(p_salesrep_id,
637 p_period_id,
638 p_credit_type_id,
639 p_org_id,
640 ddx_result_tbl);
641
642 -- copy data back from the local variables to OUT or IN-OUT args, if any
643
644
645
646
647 cn_get_comm_summ_data_pvt_w.rosetta_table_copy_out_p5(ddx_result_tbl, p4_a0
648 , p4_a1
649 , p4_a2
650 , p4_a3
651 , p4_a4
652 , p4_a5
653 , p4_a6
654 , p4_a7
655 , p4_a8
656 , p4_a9
657 , p4_a10
658 , p4_a11
659 );
660 end;
661
662 procedure get_manager_pe_info(p_period_id NUMBER
663 , p_credit_type_id NUMBER
664 , p_org_id NUMBER
665 , p3_a0 out nocopy JTF_NUMBER_TABLE
666 , p3_a1 out nocopy JTF_VARCHAR2_TABLE_100
667 , p3_a2 out nocopy JTF_NUMBER_TABLE
668 , p3_a3 out nocopy JTF_NUMBER_TABLE
669 , p3_a4 out nocopy JTF_NUMBER_TABLE
670 , p3_a5 out nocopy JTF_NUMBER_TABLE
671 , p3_a6 out nocopy JTF_NUMBER_TABLE
672 , p3_a7 out nocopy JTF_NUMBER_TABLE
673 , p3_a8 out nocopy JTF_NUMBER_TABLE
674 , p3_a9 out nocopy JTF_NUMBER_TABLE
675 , p3_a10 out nocopy JTF_NUMBER_TABLE
676 , p3_a11 out nocopy JTF_NUMBER_TABLE
677 )
678
679 as
680 ddx_result_tbl cn_get_comm_summ_data_pvt.pe_info_tbl_type;
681 ddindx binary_integer; indx binary_integer;
682 begin
686
683
684 -- copy data to the local IN or IN-OUT args, if any
685
687
688
689 -- here's the delegated call to the old PL/SQL routine
690 cn_get_comm_summ_data_pvt.get_manager_pe_info(p_period_id,
691 p_credit_type_id,
692 p_org_id,
693 ddx_result_tbl);
694
695 -- copy data back from the local variables to OUT or IN-OUT args, if any
696
697
698
699 cn_get_comm_summ_data_pvt_w.rosetta_table_copy_out_p5(ddx_result_tbl, p3_a0
700 , p3_a1
701 , p3_a2
702 , p3_a3
703 , p3_a4
704 , p3_a5
705 , p3_a6
706 , p3_a7
707 , p3_a8
708 , p3_a9
709 , p3_a10
710 , p3_a11
711 );
712 end;
713
714 procedure get_analyst_pe_info(p_period_id NUMBER
715 , p_credit_type_id NUMBER
716 , p_org_id NUMBER
717 , p_analyst_id NUMBER
718 , p4_a0 out nocopy JTF_NUMBER_TABLE
719 , p4_a1 out nocopy JTF_VARCHAR2_TABLE_100
720 , p4_a2 out nocopy JTF_NUMBER_TABLE
721 , p4_a3 out nocopy JTF_NUMBER_TABLE
722 , p4_a4 out nocopy JTF_NUMBER_TABLE
723 , p4_a5 out nocopy JTF_NUMBER_TABLE
724 , p4_a6 out nocopy JTF_NUMBER_TABLE
725 , p4_a7 out nocopy JTF_NUMBER_TABLE
726 , p4_a8 out nocopy JTF_NUMBER_TABLE
727 , p4_a9 out nocopy JTF_NUMBER_TABLE
728 , p4_a10 out nocopy JTF_NUMBER_TABLE
729 , p4_a11 out nocopy JTF_NUMBER_TABLE
730 )
731
732 as
733 ddx_result_tbl cn_get_comm_summ_data_pvt.pe_info_tbl_type;
734 ddindx binary_integer; indx binary_integer;
735 begin
736
737 -- copy data to the local IN or IN-OUT args, if any
738
739
740
741
742
743 -- here's the delegated call to the old PL/SQL routine
744 cn_get_comm_summ_data_pvt.get_analyst_pe_info(p_period_id,
745 p_credit_type_id,
746 p_org_id,
747 p_analyst_id,
748 ddx_result_tbl);
749
750 -- copy data back from the local variables to OUT or IN-OUT args, if any
751
752
753
754
755 cn_get_comm_summ_data_pvt_w.rosetta_table_copy_out_p5(ddx_result_tbl, p4_a0
756 , p4_a1
757 , p4_a2
758 , p4_a3
759 , p4_a4
760 , p4_a5
761 , p4_a6
762 , p4_a7
763 , p4_a8
764 , p4_a9
765 , p4_a10
766 , p4_a11
767 );
768 end;
769
770 procedure get_salesrep_details(p_salesrep_id NUMBER
771 , p_org_id NUMBER
772 , p2_a0 out nocopy JTF_VARCHAR2_TABLE_400
773 , p2_a1 out nocopy JTF_VARCHAR2_TABLE_100
774 , p2_a2 out nocopy JTF_VARCHAR2_TABLE_100
775 , p2_a3 out nocopy JTF_VARCHAR2_TABLE_100
776 , p2_a4 out nocopy JTF_VARCHAR2_TABLE_100
777 , p2_a5 out nocopy JTF_NUMBER_TABLE
778 )
779
780 as
781 ddx_result_tbl cn_get_comm_summ_data_pvt.salesrep_info_tbl_type;
782 ddindx binary_integer; indx binary_integer;
783 begin
784
785 -- copy data to the local IN or IN-OUT args, if any
786
787
788
789 -- here's the delegated call to the old PL/SQL routine
790 cn_get_comm_summ_data_pvt.get_salesrep_details(p_salesrep_id,
791 p_org_id,
792 ddx_result_tbl);
793
794 -- copy data back from the local variables to OUT or IN-OUT args, if any
795
796
797 cn_get_comm_summ_data_pvt_w.rosetta_table_copy_out_p7(ddx_result_tbl, p2_a0
798 , p2_a1
799 , p2_a2
800 , p2_a3
801 , p2_a4
802 , p2_a5
803 );
804 end;
805
806 procedure get_manager_details(p_org_id NUMBER
807 , p1_a0 out nocopy JTF_VARCHAR2_TABLE_400
808 , p1_a1 out nocopy JTF_VARCHAR2_TABLE_100
809 , p1_a2 out nocopy JTF_VARCHAR2_TABLE_100
810 , p1_a3 out nocopy JTF_VARCHAR2_TABLE_100
811 , p1_a4 out nocopy JTF_VARCHAR2_TABLE_100
812 , p1_a5 out nocopy JTF_NUMBER_TABLE
813 )
814
815 as
816 ddx_result_tbl cn_get_comm_summ_data_pvt.salesrep_info_tbl_type;
817 ddindx binary_integer; indx binary_integer;
818 begin
819
820 -- copy data to the local IN or IN-OUT args, if any
821
822
823 -- here's the delegated call to the old PL/SQL routine
824 cn_get_comm_summ_data_pvt.get_manager_details(p_org_id,
825 ddx_result_tbl);
826
827 -- copy data back from the local variables to OUT or IN-OUT args, if any
828
829 cn_get_comm_summ_data_pvt_w.rosetta_table_copy_out_p7(ddx_result_tbl, p1_a0
830 , p1_a1
831 , p1_a2
832 , p1_a3
833 , p1_a4
834 , p1_a5
835 );
836 end;
837
838 procedure get_analyst_details(p_org_id NUMBER
839 , p_analyst_id NUMBER
840 , p2_a0 out nocopy JTF_VARCHAR2_TABLE_400
841 , p2_a1 out nocopy JTF_VARCHAR2_TABLE_100
842 , p2_a2 out nocopy JTF_VARCHAR2_TABLE_100
843 , p2_a3 out nocopy JTF_VARCHAR2_TABLE_100
844 , p2_a4 out nocopy JTF_VARCHAR2_TABLE_100
845 , p2_a5 out nocopy JTF_NUMBER_TABLE
846 )
847
848 as
849 ddx_result_tbl cn_get_comm_summ_data_pvt.salesrep_info_tbl_type;
850 ddindx binary_integer; indx binary_integer;
851 begin
852
853 -- copy data to the local IN or IN-OUT args, if any
854
855
856
857 -- here's the delegated call to the old PL/SQL routine
858 cn_get_comm_summ_data_pvt.get_analyst_details(p_org_id,
859 p_analyst_id,
860 ddx_result_tbl);
861
862 -- copy data back from the local variables to OUT or IN-OUT args, if any
863
867 , p2_a2
864
865 cn_get_comm_summ_data_pvt_w.rosetta_table_copy_out_p7(ddx_result_tbl, p2_a0
866 , p2_a1
868 , p2_a3
869 , p2_a4
870 , p2_a5
871 );
872 end;
873
874 procedure get_group_codes(p_org_id NUMBER
875 , x_result_tbl out nocopy JTF_VARCHAR2_TABLE_100
876 )
877
878 as
879 ddx_result_tbl cn_get_comm_summ_data_pvt.group_code_tbl_type;
880 ddindx binary_integer; indx binary_integer;
881 begin
882
883 -- copy data to the local IN or IN-OUT args, if any
884
885
886 -- here's the delegated call to the old PL/SQL routine
887 cn_get_comm_summ_data_pvt.get_group_codes(p_org_id,
888 ddx_result_tbl);
889
890 -- copy data back from the local variables to OUT or IN-OUT args, if any
891
892 cn_get_comm_summ_data_pvt_w.rosetta_table_copy_out_p3(ddx_result_tbl, x_result_tbl);
893 end;
894
895 procedure get_ptd_credit(p_salesrep_id NUMBER
896 , p_payrun_id NUMBER
897 , p_org_id NUMBER
898 , p3_a0 in out nocopy JTF_NUMBER_TABLE
899 , p3_a1 in out nocopy JTF_NUMBER_TABLE
900 )
901
902 as
903 ddx_result_tbl cn_get_comm_summ_data_pvt.pe_ptd_credit_tbl_type;
904 ddindx binary_integer; indx binary_integer;
905 begin
906
907 -- copy data to the local IN or IN-OUT args, if any
908
909
910
911 cn_get_comm_summ_data_pvt_w.rosetta_table_copy_in_p9(ddx_result_tbl, p3_a0
912 , p3_a1
913 );
914
915 -- here's the delegated call to the old PL/SQL routine
916 cn_get_comm_summ_data_pvt.get_ptd_credit(p_salesrep_id,
917 p_payrun_id,
918 p_org_id,
922
919 ddx_result_tbl);
920
921 -- copy data back from the local variables to OUT or IN-OUT args, if any
923
924
925 cn_get_comm_summ_data_pvt_w.rosetta_table_copy_out_p9(ddx_result_tbl, p3_a0
926 , p3_a1
927 );
928 end;
929
930 end cn_get_comm_summ_data_pvt_w;