[Home] [Help]
PACKAGE BODY: APPS.PV_TERR_ASSIGN_PUB_W
Source
1 package body pv_terr_assign_pub_w as
2 /* $Header: pvxwptab.pls 120.1 2005/08/10 01:44 appldev ship $ */
3 rosetta_g_mistake_date date := to_date('01/01/+4713', 'MM/DD/SYYYY');
4 rosetta_g_miss_date date := to_date('01/01/-4712', 'MM/DD/SYYYY');
5
6 -- this is to workaround the JDBC bug regarding IN DATE of value GMiss
7 function rosetta_g_miss_date_in_map(d date) return date as
8 begin
9 if d = rosetta_g_mistake_date then return fnd_api.g_miss_date; end if;
10 return d;
11 end;
12
13 procedure rosetta_table_copy_in_p15(t out nocopy pv_terr_assign_pub.partner_qualifiers_tbl_type, a0 JTF_VARCHAR2_TABLE_400
14 , a1 JTF_NUMBER_TABLE
15 , a2 JTF_NUMBER_TABLE
16 , a3 JTF_VARCHAR2_TABLE_100
17 , a4 JTF_VARCHAR2_TABLE_100
18 , a5 JTF_VARCHAR2_TABLE_100
19 , a6 JTF_VARCHAR2_TABLE_100
20 , a7 JTF_VARCHAR2_TABLE_100
21 , a8 JTF_VARCHAR2_TABLE_100
22 , a9 JTF_VARCHAR2_TABLE_100
23 , a10 JTF_NUMBER_TABLE
24 , a11 JTF_NUMBER_TABLE
25 , a12 JTF_VARCHAR2_TABLE_100
26 , a13 JTF_VARCHAR2_TABLE_500
27 , a14 JTF_VARCHAR2_TABLE_100
28 ) as
29 ddindx binary_integer; indx binary_integer;
30 begin
31 if a0 is not null and a0.count > 0 then
32 if a0.count > 0 then
33 indx := a0.first;
34 ddindx := 1;
35 while true loop
36 t(ddindx).partner_name := a0(indx);
37 t(ddindx).party_site_id := a1(indx);
38 t(ddindx).party_id := a2(indx);
39 t(ddindx).area_code := a3(indx);
40 t(ddindx).city := a4(indx);
41 t(ddindx).country := a5(indx);
42 t(ddindx).county := a6(indx);
43 t(ddindx).postal_code := a7(indx);
44 t(ddindx).province := a8(indx);
45 t(ddindx).state := a9(indx);
46 t(ddindx).annual_revenue := a10(indx);
47 t(ddindx).number_of_employee := a11(indx);
48 t(ddindx).customer_category_code := a12(indx);
49 t(ddindx).partner_type := a13(indx);
50 t(ddindx).partner_level := a14(indx);
51 ddindx := ddindx+1;
52 if a0.last =indx
53 then exit;
54 end if;
55 indx := a0.next(indx);
56 end loop;
57 end if;
58 end if;
59 end rosetta_table_copy_in_p15;
60 procedure rosetta_table_copy_out_p15(t pv_terr_assign_pub.partner_qualifiers_tbl_type, a0 out nocopy JTF_VARCHAR2_TABLE_400
61 , a1 out nocopy JTF_NUMBER_TABLE
62 , a2 out nocopy JTF_NUMBER_TABLE
63 , a3 out nocopy JTF_VARCHAR2_TABLE_100
64 , a4 out nocopy JTF_VARCHAR2_TABLE_100
65 , a5 out nocopy JTF_VARCHAR2_TABLE_100
66 , a6 out nocopy JTF_VARCHAR2_TABLE_100
67 , a7 out nocopy JTF_VARCHAR2_TABLE_100
68 , a8 out nocopy JTF_VARCHAR2_TABLE_100
69 , a9 out nocopy JTF_VARCHAR2_TABLE_100
70 , a10 out nocopy JTF_NUMBER_TABLE
71 , a11 out nocopy JTF_NUMBER_TABLE
72 , a12 out nocopy JTF_VARCHAR2_TABLE_100
73 , a13 out nocopy JTF_VARCHAR2_TABLE_500
74 , a14 out nocopy JTF_VARCHAR2_TABLE_100
75 ) as
76 ddindx binary_integer; indx binary_integer;
77 begin
78 if t is null or t.count = 0 then
79 a0 := JTF_VARCHAR2_TABLE_400();
80 a1 := JTF_NUMBER_TABLE();
81 a2 := JTF_NUMBER_TABLE();
82 a3 := JTF_VARCHAR2_TABLE_100();
83 a4 := JTF_VARCHAR2_TABLE_100();
84 a5 := JTF_VARCHAR2_TABLE_100();
85 a6 := JTF_VARCHAR2_TABLE_100();
86 a7 := JTF_VARCHAR2_TABLE_100();
87 a8 := JTF_VARCHAR2_TABLE_100();
88 a9 := JTF_VARCHAR2_TABLE_100();
89 a10 := JTF_NUMBER_TABLE();
90 a11 := JTF_NUMBER_TABLE();
91 a12 := JTF_VARCHAR2_TABLE_100();
92 a13 := JTF_VARCHAR2_TABLE_500();
93 a14 := JTF_VARCHAR2_TABLE_100();
94 else
95 a0 := JTF_VARCHAR2_TABLE_400();
96 a1 := JTF_NUMBER_TABLE();
97 a2 := JTF_NUMBER_TABLE();
98 a3 := JTF_VARCHAR2_TABLE_100();
99 a4 := JTF_VARCHAR2_TABLE_100();
100 a5 := JTF_VARCHAR2_TABLE_100();
101 a6 := JTF_VARCHAR2_TABLE_100();
102 a7 := JTF_VARCHAR2_TABLE_100();
103 a8 := JTF_VARCHAR2_TABLE_100();
104 a9 := JTF_VARCHAR2_TABLE_100();
105 a10 := JTF_NUMBER_TABLE();
106 a11 := JTF_NUMBER_TABLE();
107 a12 := JTF_VARCHAR2_TABLE_100();
108 a13 := JTF_VARCHAR2_TABLE_500();
109 a14 := JTF_VARCHAR2_TABLE_100();
110 if t.count > 0 then
111 a0.extend(t.count);
112 a1.extend(t.count);
113 a2.extend(t.count);
114 a3.extend(t.count);
115 a4.extend(t.count);
116 a5.extend(t.count);
117 a6.extend(t.count);
118 a7.extend(t.count);
119 a8.extend(t.count);
120 a9.extend(t.count);
121 a10.extend(t.count);
122 a11.extend(t.count);
123 a12.extend(t.count);
124 a13.extend(t.count);
125 a14.extend(t.count);
126 ddindx := t.first;
127 indx := 1;
128 while true loop
129 a0(indx) := t(ddindx).partner_name;
130 a1(indx) := t(ddindx).party_site_id;
131 a2(indx) := t(ddindx).party_id;
132 a3(indx) := t(ddindx).area_code;
133 a4(indx) := t(ddindx).city;
134 a5(indx) := t(ddindx).country;
135 a6(indx) := t(ddindx).county;
136 a7(indx) := t(ddindx).postal_code;
137 a8(indx) := t(ddindx).province;
138 a9(indx) := t(ddindx).state;
139 a10(indx) := t(ddindx).annual_revenue;
140 a11(indx) := t(ddindx).number_of_employee;
141 a12(indx) := t(ddindx).customer_category_code;
142 a13(indx) := t(ddindx).partner_type;
143 a14(indx) := t(ddindx).partner_level;
144 indx := indx+1;
145 if t.last =ddindx
146 then exit;
147 end if;
148 ddindx := t.next(ddindx);
149 end loop;
150 end if;
151 end if;
152 end rosetta_table_copy_out_p15;
153
154 procedure rosetta_table_copy_in_p19(t out nocopy pv_terr_assign_pub.prtnr_qflr_flg_tbl_type, a0 JTF_VARCHAR2_TABLE_100
155 , a1 JTF_VARCHAR2_TABLE_100
156 , a2 JTF_VARCHAR2_TABLE_100
157 , a3 JTF_VARCHAR2_TABLE_100
158 , a4 JTF_VARCHAR2_TABLE_100
159 , a5 JTF_VARCHAR2_TABLE_100
160 , a6 JTF_VARCHAR2_TABLE_100
161 , a7 JTF_VARCHAR2_TABLE_100
162 , a8 JTF_VARCHAR2_TABLE_100
163 , a9 JTF_VARCHAR2_TABLE_100
164 , a10 JTF_VARCHAR2_TABLE_100
165 , a11 JTF_VARCHAR2_TABLE_100
166 , a12 JTF_VARCHAR2_TABLE_100
167 , a13 JTF_VARCHAR2_TABLE_100
168 ) as
169 ddindx binary_integer; indx binary_integer;
170 begin
171 if a0 is not null and a0.count > 0 then
172 if a0.count > 0 then
173 indx := a0.first;
174 ddindx := 1;
175 while true loop
176 t(ddindx).partner_name_flg := a0(indx);
177 t(ddindx).party_site_id_flg := a1(indx);
178 t(ddindx).area_code_flg := a2(indx);
179 t(ddindx).city_flg := a3(indx);
180 t(ddindx).country_flg := a4(indx);
181 t(ddindx).county_flg := a5(indx);
182 t(ddindx).postal_code_flg := a6(indx);
183 t(ddindx).province_flg := a7(indx);
184 t(ddindx).state_flg := a8(indx);
185 t(ddindx).annual_revenue_flg := a9(indx);
186 t(ddindx).number_of_employee_flg := a10(indx);
187 t(ddindx).cust_catgy_code_flg := a11(indx);
188 t(ddindx).partner_type_flg := a12(indx);
189 t(ddindx).partner_level_flg := a13(indx);
190 ddindx := ddindx+1;
191 if a0.last =indx
192 then exit;
193 end if;
194 indx := a0.next(indx);
195 end loop;
196 end if;
197 end if;
198 end rosetta_table_copy_in_p19;
199 procedure rosetta_table_copy_out_p19(t pv_terr_assign_pub.prtnr_qflr_flg_tbl_type, a0 out nocopy JTF_VARCHAR2_TABLE_100
200 , a1 out nocopy JTF_VARCHAR2_TABLE_100
201 , a2 out nocopy JTF_VARCHAR2_TABLE_100
202 , a3 out nocopy JTF_VARCHAR2_TABLE_100
203 , a4 out nocopy JTF_VARCHAR2_TABLE_100
204 , a5 out nocopy JTF_VARCHAR2_TABLE_100
205 , a6 out nocopy JTF_VARCHAR2_TABLE_100
206 , a7 out nocopy JTF_VARCHAR2_TABLE_100
207 , a8 out nocopy JTF_VARCHAR2_TABLE_100
208 , a9 out nocopy JTF_VARCHAR2_TABLE_100
209 , a10 out nocopy JTF_VARCHAR2_TABLE_100
210 , a11 out nocopy JTF_VARCHAR2_TABLE_100
211 , a12 out nocopy JTF_VARCHAR2_TABLE_100
212 , a13 out nocopy JTF_VARCHAR2_TABLE_100
213 ) as
214 ddindx binary_integer; indx binary_integer;
215 begin
216 if t is null or t.count = 0 then
217 a0 := JTF_VARCHAR2_TABLE_100();
218 a1 := JTF_VARCHAR2_TABLE_100();
219 a2 := JTF_VARCHAR2_TABLE_100();
220 a3 := JTF_VARCHAR2_TABLE_100();
221 a4 := JTF_VARCHAR2_TABLE_100();
222 a5 := JTF_VARCHAR2_TABLE_100();
223 a6 := JTF_VARCHAR2_TABLE_100();
224 a7 := JTF_VARCHAR2_TABLE_100();
225 a8 := JTF_VARCHAR2_TABLE_100();
226 a9 := JTF_VARCHAR2_TABLE_100();
227 a10 := JTF_VARCHAR2_TABLE_100();
228 a11 := JTF_VARCHAR2_TABLE_100();
229 a12 := JTF_VARCHAR2_TABLE_100();
230 a13 := JTF_VARCHAR2_TABLE_100();
231 else
232 a0 := JTF_VARCHAR2_TABLE_100();
233 a1 := JTF_VARCHAR2_TABLE_100();
234 a2 := JTF_VARCHAR2_TABLE_100();
235 a3 := JTF_VARCHAR2_TABLE_100();
236 a4 := JTF_VARCHAR2_TABLE_100();
237 a5 := JTF_VARCHAR2_TABLE_100();
238 a6 := JTF_VARCHAR2_TABLE_100();
239 a7 := JTF_VARCHAR2_TABLE_100();
240 a8 := JTF_VARCHAR2_TABLE_100();
241 a9 := JTF_VARCHAR2_TABLE_100();
242 a10 := JTF_VARCHAR2_TABLE_100();
243 a11 := JTF_VARCHAR2_TABLE_100();
244 a12 := JTF_VARCHAR2_TABLE_100();
245 a13 := JTF_VARCHAR2_TABLE_100();
246 if t.count > 0 then
247 a0.extend(t.count);
248 a1.extend(t.count);
249 a2.extend(t.count);
250 a3.extend(t.count);
251 a4.extend(t.count);
252 a5.extend(t.count);
253 a6.extend(t.count);
254 a7.extend(t.count);
255 a8.extend(t.count);
256 a9.extend(t.count);
257 a10.extend(t.count);
258 a11.extend(t.count);
259 a12.extend(t.count);
260 a13.extend(t.count);
261 ddindx := t.first;
262 indx := 1;
263 while true loop
264 a0(indx) := t(ddindx).partner_name_flg;
265 a1(indx) := t(ddindx).party_site_id_flg;
266 a2(indx) := t(ddindx).area_code_flg;
267 a3(indx) := t(ddindx).city_flg;
268 a4(indx) := t(ddindx).country_flg;
269 a5(indx) := t(ddindx).county_flg;
270 a6(indx) := t(ddindx).postal_code_flg;
271 a7(indx) := t(ddindx).province_flg;
272 a8(indx) := t(ddindx).state_flg;
273 a9(indx) := t(ddindx).annual_revenue_flg;
274 a10(indx) := t(ddindx).number_of_employee_flg;
275 a11(indx) := t(ddindx).cust_catgy_code_flg;
276 a12(indx) := t(ddindx).partner_type_flg;
277 a13(indx) := t(ddindx).partner_level_flg;
278 indx := indx+1;
279 if t.last =ddindx
280 then exit;
281 end if;
282 ddindx := t.next(ddindx);
283 end loop;
284 end if;
285 end if;
286 end rosetta_table_copy_out_p19;
287
288 procedure rosetta_table_copy_in_p22(t out nocopy pv_terr_assign_pub.resourcelist, a0 JTF_NUMBER_TABLE) as
289 ddindx binary_integer; indx binary_integer;
290 begin
291 if a0 is null then
292 t := null;
293 elsif a0.count = 0 then
294 t := pv_terr_assign_pub.resourcelist();
295 else
296 if a0.count > 0 then
297 t := pv_terr_assign_pub.resourcelist();
298 t.extend(a0.count);
299 indx := a0.first;
300 ddindx := 1;
301 while true loop
302 t(ddindx) := a0(indx);
303 ddindx := ddindx+1;
304 if a0.last =indx
305 then exit;
306 end if;
307 indx := a0.next(indx);
308 end loop;
309 end if;
310 end if;
311 end rosetta_table_copy_in_p22;
312 procedure rosetta_table_copy_out_p22(t pv_terr_assign_pub.resourcelist, a0 out nocopy JTF_NUMBER_TABLE) as
313 ddindx binary_integer; indx binary_integer;
314 begin
315 if t is null then
316 a0 := null;
317 elsif t.count = 0 then
318 a0 := JTF_NUMBER_TABLE();
319 else
320 a0 := JTF_NUMBER_TABLE();
321 if t.count > 0 then
322 a0.extend(t.count);
323 ddindx := t.first;
324 indx := 1;
325 while true loop
326 a0(indx) := t(ddindx);
327 indx := indx+1;
328 if t.last =ddindx
329 then exit;
330 end if;
331 ddindx := t.next(ddindx);
332 end loop;
333 end if;
334 end if;
335 end rosetta_table_copy_out_p22;
336
337 procedure rosetta_table_copy_in_p23(t out nocopy pv_terr_assign_pub.personlist, a0 JTF_NUMBER_TABLE) as
338 ddindx binary_integer; indx binary_integer;
339 begin
340 if a0 is null then
341 t := null;
342 elsif a0.count = 0 then
343 t := pv_terr_assign_pub.personlist();
344 else
345 if a0.count > 0 then
346 t := pv_terr_assign_pub.personlist();
347 t.extend(a0.count);
348 indx := a0.first;
349 ddindx := 1;
350 while true loop
351 t(ddindx) := a0(indx);
352 ddindx := ddindx+1;
353 if a0.last =indx
354 then exit;
355 end if;
356 indx := a0.next(indx);
357 end loop;
358 end if;
359 end if;
360 end rosetta_table_copy_in_p23;
361 procedure rosetta_table_copy_out_p23(t pv_terr_assign_pub.personlist, a0 out nocopy JTF_NUMBER_TABLE) as
362 ddindx binary_integer; indx binary_integer;
363 begin
364 if t is null then
365 a0 := null;
366 elsif t.count = 0 then
367 a0 := JTF_NUMBER_TABLE();
368 else
369 a0 := JTF_NUMBER_TABLE();
370 if t.count > 0 then
371 a0.extend(t.count);
372 ddindx := t.first;
373 indx := 1;
374 while true loop
375 a0(indx) := t(ddindx);
376 indx := indx+1;
377 if t.last =ddindx
378 then exit;
379 end if;
380 ddindx := t.next(ddindx);
381 end loop;
382 end if;
383 end if;
384 end rosetta_table_copy_out_p23;
385
386 procedure rosetta_table_copy_in_p24(t out nocopy pv_terr_assign_pub.resourcecategorylist, a0 JTF_VARCHAR2_TABLE_100) as
387 ddindx binary_integer; indx binary_integer;
388 begin
389 if a0 is null then
390 t := null;
391 elsif a0.count = 0 then
392 t := pv_terr_assign_pub.resourcecategorylist();
393 else
394 if a0.count > 0 then
395 t := pv_terr_assign_pub.resourcecategorylist();
396 t.extend(a0.count);
397 indx := a0.first;
401 ddindx := ddindx+1;
398 ddindx := 1;
399 while true loop
400 t(ddindx) := a0(indx);
402 if a0.last =indx
403 then exit;
404 end if;
405 indx := a0.next(indx);
406 end loop;
407 end if;
408 end if;
409 end rosetta_table_copy_in_p24;
410 procedure rosetta_table_copy_out_p24(t pv_terr_assign_pub.resourcecategorylist, a0 out nocopy JTF_VARCHAR2_TABLE_100) as
411 ddindx binary_integer; indx binary_integer;
412 begin
413 if t is null then
414 a0 := null;
415 elsif t.count = 0 then
416 a0 := JTF_VARCHAR2_TABLE_100();
417 else
418 a0 := JTF_VARCHAR2_TABLE_100();
419 if t.count > 0 then
420 a0.extend(t.count);
421 ddindx := t.first;
422 indx := 1;
423 while true loop
424 a0(indx) := t(ddindx);
425 indx := indx+1;
426 if t.last =ddindx
427 then exit;
428 end if;
429 ddindx := t.next(ddindx);
430 end loop;
431 end if;
432 end if;
433 end rosetta_table_copy_out_p24;
434
435 procedure rosetta_table_copy_in_p25(t out nocopy pv_terr_assign_pub.grouplist, a0 JTF_NUMBER_TABLE) as
436 ddindx binary_integer; indx binary_integer;
437 begin
438 if a0 is null then
439 t := null;
440 elsif a0.count = 0 then
441 t := pv_terr_assign_pub.grouplist();
442 else
443 if a0.count > 0 then
444 t := pv_terr_assign_pub.grouplist();
445 t.extend(a0.count);
446 indx := a0.first;
447 ddindx := 1;
448 while true loop
449 t(ddindx) := a0(indx);
450 ddindx := ddindx+1;
451 if a0.last =indx
452 then exit;
453 end if;
454 indx := a0.next(indx);
455 end loop;
456 end if;
457 end if;
458 end rosetta_table_copy_in_p25;
459 procedure rosetta_table_copy_out_p25(t pv_terr_assign_pub.grouplist, a0 out nocopy JTF_NUMBER_TABLE) as
460 ddindx binary_integer; indx binary_integer;
461 begin
462 if t is null then
463 a0 := null;
464 elsif t.count = 0 then
465 a0 := JTF_NUMBER_TABLE();
466 else
467 a0 := JTF_NUMBER_TABLE();
468 if t.count > 0 then
469 a0.extend(t.count);
470 ddindx := t.first;
471 indx := 1;
472 while true loop
473 a0(indx) := t(ddindx);
474 indx := indx+1;
475 if t.last =ddindx
476 then exit;
477 end if;
478 ddindx := t.next(ddindx);
479 end loop;
480 end if;
481 end if;
482 end rosetta_table_copy_out_p25;
483
484 procedure rosetta_table_copy_in_p30(t out nocopy pv_terr_assign_pub.prtnr_aces_tbl_type, a0 JTF_NUMBER_TABLE
485 ) as
486 ddindx binary_integer; indx binary_integer;
487 begin
488 if a0 is not null and a0.count > 0 then
489 if a0.count > 0 then
490 indx := a0.first;
491 ddindx := 1;
492 while true loop
493 t(ddindx).partner_access_id := a0(indx);
494 ddindx := ddindx+1;
495 if a0.last =indx
496 then exit;
497 end if;
498 indx := a0.next(indx);
499 end loop;
500 end if;
501 end if;
502 end rosetta_table_copy_in_p30;
503 procedure rosetta_table_copy_out_p30(t pv_terr_assign_pub.prtnr_aces_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
504 ) as
505 ddindx binary_integer; indx binary_integer;
506 begin
507 if t is null or t.count = 0 then
508 a0 := JTF_NUMBER_TABLE();
509 else
510 a0 := JTF_NUMBER_TABLE();
511 if t.count > 0 then
512 a0.extend(t.count);
513 ddindx := t.first;
514 indx := 1;
515 while true loop
516 a0(indx) := t(ddindx).partner_access_id;
517 indx := indx+1;
518 if t.last =ddindx
519 then exit;
520 end if;
521 ddindx := t.next(ddindx);
522 end loop;
523 end if;
524 end if;
525 end rosetta_table_copy_out_p30;
526
527 procedure get_res_from_team_group(p_resource_id NUMBER
528 , p_resource_type VARCHAR2
529 , p2_a0 out nocopy JTF_NUMBER_TABLE
530 , p2_a1 out nocopy JTF_NUMBER_TABLE
531 , p2_a2 out nocopy JTF_VARCHAR2_TABLE_100
532 , p2_a3 out nocopy JTF_NUMBER_TABLE
533 )
534
535 as
536 ddx_resource_rec pv_terr_assign_pub.resourcerec;
537 ddindx binary_integer; indx binary_integer;
538 begin
539
540 -- copy data to the local IN or IN-OUT args, if any
541
542
543
544 -- here's the delegated call to the old PL/SQL routine
545 pv_terr_assign_pub.get_res_from_team_group(p_resource_id,
546 p_resource_type,
547 ddx_resource_rec);
548
549 -- copy data back from the local variables to OUT or IN-OUT args, if any
550
551
552 pv_terr_assign_pub_w.rosetta_table_copy_out_p22(ddx_resource_rec.resource_id, p2_a0);
556 end;
553 pv_terr_assign_pub_w.rosetta_table_copy_out_p23(ddx_resource_rec.person_id, p2_a1);
554 pv_terr_assign_pub_w.rosetta_table_copy_out_p24(ddx_resource_rec.resource_category, p2_a2);
555 pv_terr_assign_pub_w.rosetta_table_copy_out_p25(ddx_resource_rec.group_id, p2_a3);
557
558 procedure get_partner_details(p_party_id NUMBER
559 , x_return_status out nocopy VARCHAR2
560 , x_msg_count out nocopy NUMBER
561 , x_msg_data out nocopy VARCHAR2
562 , p4_a0 out nocopy JTF_VARCHAR2_TABLE_400
563 , p4_a1 out nocopy JTF_NUMBER_TABLE
564 , p4_a2 out nocopy JTF_NUMBER_TABLE
565 , p4_a3 out nocopy JTF_VARCHAR2_TABLE_100
566 , p4_a4 out nocopy JTF_VARCHAR2_TABLE_100
567 , p4_a5 out nocopy JTF_VARCHAR2_TABLE_100
568 , p4_a6 out nocopy JTF_VARCHAR2_TABLE_100
569 , p4_a7 out nocopy JTF_VARCHAR2_TABLE_100
570 , p4_a8 out nocopy JTF_VARCHAR2_TABLE_100
571 , p4_a9 out nocopy JTF_VARCHAR2_TABLE_100
572 , p4_a10 out nocopy JTF_NUMBER_TABLE
573 , p4_a11 out nocopy JTF_NUMBER_TABLE
574 , p4_a12 out nocopy JTF_VARCHAR2_TABLE_100
575 , p4_a13 out nocopy JTF_VARCHAR2_TABLE_500
576 , p4_a14 out nocopy JTF_VARCHAR2_TABLE_100
577 )
578
579 as
580 ddx_partner_qualifiers_tbl pv_terr_assign_pub.partner_qualifiers_tbl_type;
581 ddindx binary_integer; indx binary_integer;
582 begin
583
584 -- copy data to the local IN or IN-OUT args, if any
585
586
587
588
589
590 -- here's the delegated call to the old PL/SQL routine
591 pv_terr_assign_pub.get_partner_details(p_party_id,
592 x_return_status,
593 x_msg_count,
594 x_msg_data,
595 ddx_partner_qualifiers_tbl);
596
597 -- copy data back from the local variables to OUT or IN-OUT args, if any
598
599
600
601
602 pv_terr_assign_pub_w.rosetta_table_copy_out_p15(ddx_partner_qualifiers_tbl, p4_a0
603 , p4_a1
604 , p4_a2
605 , p4_a3
606 , p4_a4
607 , p4_a5
608 , p4_a6
609 , p4_a7
610 , p4_a8
611 , p4_a9
612 , p4_a10
613 , p4_a11
614 , p4_a12
615 , p4_a13
616 , p4_a14
617 );
618 end;
619
620 procedure create_channel_team(p_api_version_number NUMBER
621 , p_init_msg_list VARCHAR2
622 , p_commit VARCHAR2
623 , p_validation_level NUMBER
624 , p_partner_id NUMBER
625 , p_vad_partner_id NUMBER
626 , p_mode VARCHAR2
627 , p_login_user NUMBER
628 , x_return_status out nocopy VARCHAR2
629 , x_msg_count out nocopy NUMBER
630 , x_msg_data out nocopy VARCHAR2
631 , p11_a0 out nocopy JTF_NUMBER_TABLE
632 )
633
634 as
635 ddx_prtnr_access_id_tbl pv_terr_assign_pub.prtnr_aces_tbl_type;
636 ddindx binary_integer; indx binary_integer;
637 begin
638
639 -- copy data to the local IN or IN-OUT args, if any
640
641
642
643
644
645
646
647
648
649
650
651
652 -- here's the delegated call to the old PL/SQL routine
653 pv_terr_assign_pub.create_channel_team(p_api_version_number,
654 p_init_msg_list,
655 p_commit,
656 p_validation_level,
657 p_partner_id,
658 p_vad_partner_id,
659 p_mode,
660 p_login_user,
661 x_return_status,
662 x_msg_count,
663 x_msg_data,
664 ddx_prtnr_access_id_tbl);
665
666 -- copy data back from the local variables to OUT or IN-OUT args, if any
667
668
669
670
671
672
673
674
675
676
677
678 pv_terr_assign_pub_w.rosetta_table_copy_out_p30(ddx_prtnr_access_id_tbl, p11_a0
679 );
680 end;
681
682 procedure do_create_channel_team(p_api_version_number NUMBER
683 , p_init_msg_list VARCHAR2
684 , p_commit VARCHAR2
685 , p_validation_level NUMBER
686 , p_partner_id NUMBER
687 , p_vad_partner_id NUMBER
688 , p_mode VARCHAR2
689 , p_login_user NUMBER
690 , p8_a0 JTF_VARCHAR2_TABLE_400
691 , p8_a1 JTF_NUMBER_TABLE
692 , p8_a2 JTF_NUMBER_TABLE
693 , p8_a3 JTF_VARCHAR2_TABLE_100
694 , p8_a4 JTF_VARCHAR2_TABLE_100
695 , p8_a5 JTF_VARCHAR2_TABLE_100
696 , p8_a6 JTF_VARCHAR2_TABLE_100
697 , p8_a7 JTF_VARCHAR2_TABLE_100
698 , p8_a8 JTF_VARCHAR2_TABLE_100
702 , p8_a12 JTF_VARCHAR2_TABLE_100
699 , p8_a9 JTF_VARCHAR2_TABLE_100
700 , p8_a10 JTF_NUMBER_TABLE
701 , p8_a11 JTF_NUMBER_TABLE
703 , p8_a13 JTF_VARCHAR2_TABLE_500
704 , p8_a14 JTF_VARCHAR2_TABLE_100
705 , x_return_status out nocopy VARCHAR2
706 , x_msg_count out nocopy NUMBER
707 , x_msg_data out nocopy VARCHAR2
708 , p12_a0 out nocopy JTF_NUMBER_TABLE
709 )
710
711 as
712 ddp_partner_qualifiers_tbl pv_terr_assign_pub.partner_qualifiers_tbl_type;
713 ddx_prtnr_access_id_tbl pv_terr_assign_pub.prtnr_aces_tbl_type;
714 ddindx binary_integer; indx binary_integer;
715 begin
716
717 -- copy data to the local IN or IN-OUT args, if any
718
719
720
721
722
723
724
725
726 pv_terr_assign_pub_w.rosetta_table_copy_in_p15(ddp_partner_qualifiers_tbl, p8_a0
727 , p8_a1
728 , p8_a2
729 , p8_a3
730 , p8_a4
731 , p8_a5
732 , p8_a6
733 , p8_a7
734 , p8_a8
735 , p8_a9
736 , p8_a10
737 , p8_a11
738 , p8_a12
739 , p8_a13
740 , p8_a14
741 );
742
743
744
745
746
747 -- here's the delegated call to the old PL/SQL routine
748 pv_terr_assign_pub.do_create_channel_team(p_api_version_number,
749 p_init_msg_list,
750 p_commit,
751 p_validation_level,
752 p_partner_id,
753 p_vad_partner_id,
754 p_mode,
755 p_login_user,
756 ddp_partner_qualifiers_tbl,
757 x_return_status,
758 x_msg_count,
759 x_msg_data,
760 ddx_prtnr_access_id_tbl);
761
762 -- copy data back from the local variables to OUT or IN-OUT args, if any
763
764
765
766
767
768
769
770
771
772
773
774
775 pv_terr_assign_pub_w.rosetta_table_copy_out_p30(ddx_prtnr_access_id_tbl, p12_a0
776 );
777 end;
778
779 procedure create_online_channel_team(p_api_version_number NUMBER
780 , p_init_msg_list VARCHAR2
781 , p_commit VARCHAR2
782 , p_validation_level NUMBER
783 , x_return_status out nocopy VARCHAR2
784 , x_msg_count out nocopy NUMBER
785 , x_msg_data out nocopy VARCHAR2
786 , p_partner_id NUMBER
787 , p_vad_partner_id NUMBER
788 , p_mode VARCHAR2
789 , p_login_user NUMBER
790 , p11_a0 out nocopy JTF_NUMBER_TABLE
791 )
792
793 as
794 ddx_prtnr_access_id_tbl pv_terr_assign_pub.prtnr_aces_tbl_type;
795 ddindx binary_integer; indx binary_integer;
796 begin
797
798 -- copy data to the local IN or IN-OUT args, if any
799
800
801
802
803
804
805
806
807
808
809
810
811 -- here's the delegated call to the old PL/SQL routine
812 pv_terr_assign_pub.create_online_channel_team(p_api_version_number,
813 p_init_msg_list,
814 p_commit,
815 p_validation_level,
816 x_return_status,
817 x_msg_count,
818 x_msg_data,
819 p_partner_id,
820 p_vad_partner_id,
821 p_mode,
822 p_login_user,
823 ddx_prtnr_access_id_tbl);
824
825 -- copy data back from the local variables to OUT or IN-OUT args, if any
826
827
828
829
830
831
832
833
834
835
836
837 pv_terr_assign_pub_w.rosetta_table_copy_out_p30(ddx_prtnr_access_id_tbl, p11_a0
838 );
839 end;
840
841 procedure do_cr_online_chnl_team(p_api_version_number NUMBER
842 , p_init_msg_list VARCHAR2
843 , p_commit VARCHAR2
844 , p_validation_level NUMBER
845 , x_return_status out nocopy VARCHAR2
849 , p_vad_partner_id NUMBER
846 , x_msg_count out nocopy NUMBER
847 , x_msg_data out nocopy VARCHAR2
848 , p_partner_id NUMBER
850 , p_mode VARCHAR2
851 , p_login_user NUMBER
852 , p11_a0 JTF_VARCHAR2_TABLE_400
853 , p11_a1 JTF_NUMBER_TABLE
854 , p11_a2 JTF_NUMBER_TABLE
855 , p11_a3 JTF_VARCHAR2_TABLE_100
856 , p11_a4 JTF_VARCHAR2_TABLE_100
857 , p11_a5 JTF_VARCHAR2_TABLE_100
858 , p11_a6 JTF_VARCHAR2_TABLE_100
859 , p11_a7 JTF_VARCHAR2_TABLE_100
860 , p11_a8 JTF_VARCHAR2_TABLE_100
861 , p11_a9 JTF_VARCHAR2_TABLE_100
862 , p11_a10 JTF_NUMBER_TABLE
863 , p11_a11 JTF_NUMBER_TABLE
864 , p11_a12 JTF_VARCHAR2_TABLE_100
865 , p11_a13 JTF_VARCHAR2_TABLE_500
866 , p11_a14 JTF_VARCHAR2_TABLE_100
867 , p12_a0 out nocopy JTF_NUMBER_TABLE
868 )
869
870 as
871 ddp_partner_qualifiers_tbl pv_terr_assign_pub.partner_qualifiers_tbl_type;
872 ddx_prtnr_access_id_tbl pv_terr_assign_pub.prtnr_aces_tbl_type;
873 ddindx binary_integer; indx binary_integer;
874 begin
875
876 -- copy data to the local IN or IN-OUT args, if any
877
878
879
880
881
882
883
884
885
886
887
888 pv_terr_assign_pub_w.rosetta_table_copy_in_p15(ddp_partner_qualifiers_tbl, p11_a0
889 , p11_a1
890 , p11_a2
891 , p11_a3
892 , p11_a4
893 , p11_a5
894 , p11_a6
895 , p11_a7
896 , p11_a8
897 , p11_a9
898 , p11_a10
899 , p11_a11
900 , p11_a12
901 , p11_a13
902 , p11_a14
903 );
904
905
906 -- here's the delegated call to the old PL/SQL routine
907 pv_terr_assign_pub.do_cr_online_chnl_team(p_api_version_number,
908 p_init_msg_list,
909 p_commit,
910 p_validation_level,
911 x_return_status,
912 x_msg_count,
913 x_msg_data,
914 p_partner_id,
915 p_vad_partner_id,
916 p_mode,
917 p_login_user,
918 ddp_partner_qualifiers_tbl,
919 ddx_prtnr_access_id_tbl);
920
921 -- copy data back from the local variables to OUT or IN-OUT args, if any
922
923
924
925
926
927
928
929
930
931
932
933
934 pv_terr_assign_pub_w.rosetta_table_copy_out_p30(ddx_prtnr_access_id_tbl, p12_a0
935 );
936 end;
937
938 procedure create_vad_channel_team(p_api_version_number NUMBER
939 , p_init_msg_list VARCHAR2
940 , p_commit VARCHAR2
941 , p_validation_level NUMBER
942 , x_return_status out nocopy VARCHAR2
943 , x_msg_count out nocopy NUMBER
944 , x_msg_data out nocopy VARCHAR2
945 , p_partner_id NUMBER
946 , p_vad_partner_id NUMBER
947 , p9_a0 out nocopy JTF_NUMBER_TABLE
948 )
949
950 as
951 ddx_prtnr_access_id_tbl pv_terr_assign_pub.prtnr_aces_tbl_type;
952 ddindx binary_integer; indx binary_integer;
953 begin
954
955 -- copy data to the local IN or IN-OUT args, if any
956
957
958
959
960
961
962
963
964
965
966 -- here's the delegated call to the old PL/SQL routine
967 pv_terr_assign_pub.create_vad_channel_team(p_api_version_number,
968 p_init_msg_list,
969 p_commit,
970 p_validation_level,
971 x_return_status,
972 x_msg_count,
973 x_msg_data,
974 p_partner_id,
975 p_vad_partner_id,
976 ddx_prtnr_access_id_tbl);
977
978 -- copy data back from the local variables to OUT or IN-OUT args, if any
979
980
981
982
983
984
985
986
987
988 pv_terr_assign_pub_w.rosetta_table_copy_out_p30(ddx_prtnr_access_id_tbl, p9_a0
989 );
990 end;
991
992 procedure update_channel_team(p_api_version_number NUMBER
993 , p_init_msg_list VARCHAR2
994 , p_commit VARCHAR2
995 , p_validation_level NUMBER
996 , p_partner_id NUMBER
997 , p_vad_partner_id NUMBER
998 , p_mode VARCHAR2
999 , p_login_user NUMBER
1000 , p8_a0 VARCHAR2
1001 , p8_a1 VARCHAR2
1002 , p8_a2 VARCHAR2
1003 , p8_a3 VARCHAR2
1004 , p8_a4 VARCHAR2
1005 , p8_a5 VARCHAR2
1011 , p8_a11 VARCHAR2
1006 , p8_a6 VARCHAR2
1007 , p8_a7 VARCHAR2
1008 , p8_a8 VARCHAR2
1009 , p8_a9 VARCHAR2
1010 , p8_a10 VARCHAR2
1012 , p8_a12 VARCHAR2
1013 , p8_a13 VARCHAR2
1014 , x_return_status out nocopy VARCHAR2
1015 , x_msg_count out nocopy NUMBER
1016 , x_msg_data out nocopy VARCHAR2
1017 , p12_a0 out nocopy JTF_NUMBER_TABLE
1018 )
1019
1020 as
1021 ddp_upd_prtnr_qflr_flg_rec pv_terr_assign_pub.prtnr_qflr_flg_rec_type;
1022 ddx_prtnr_access_id_tbl pv_terr_assign_pub.prtnr_aces_tbl_type;
1023 ddindx binary_integer; indx binary_integer;
1024 begin
1025
1026 -- copy data to the local IN or IN-OUT args, if any
1027
1028
1029
1030
1031
1032
1033
1034
1035 ddp_upd_prtnr_qflr_flg_rec.partner_name_flg := p8_a0;
1036 ddp_upd_prtnr_qflr_flg_rec.party_site_id_flg := p8_a1;
1037 ddp_upd_prtnr_qflr_flg_rec.area_code_flg := p8_a2;
1038 ddp_upd_prtnr_qflr_flg_rec.city_flg := p8_a3;
1039 ddp_upd_prtnr_qflr_flg_rec.country_flg := p8_a4;
1040 ddp_upd_prtnr_qflr_flg_rec.county_flg := p8_a5;
1041 ddp_upd_prtnr_qflr_flg_rec.postal_code_flg := p8_a6;
1042 ddp_upd_prtnr_qflr_flg_rec.province_flg := p8_a7;
1043 ddp_upd_prtnr_qflr_flg_rec.state_flg := p8_a8;
1044 ddp_upd_prtnr_qflr_flg_rec.annual_revenue_flg := p8_a9;
1045 ddp_upd_prtnr_qflr_flg_rec.number_of_employee_flg := p8_a10;
1046 ddp_upd_prtnr_qflr_flg_rec.cust_catgy_code_flg := p8_a11;
1047 ddp_upd_prtnr_qflr_flg_rec.partner_type_flg := p8_a12;
1048 ddp_upd_prtnr_qflr_flg_rec.partner_level_flg := p8_a13;
1049
1050
1051
1052
1053
1054 -- here's the delegated call to the old PL/SQL routine
1055 pv_terr_assign_pub.update_channel_team(p_api_version_number,
1056 p_init_msg_list,
1057 p_commit,
1058 p_validation_level,
1059 p_partner_id,
1060 p_vad_partner_id,
1061 p_mode,
1062 p_login_user,
1063 ddp_upd_prtnr_qflr_flg_rec,
1064 x_return_status,
1065 x_msg_count,
1066 x_msg_data,
1067 ddx_prtnr_access_id_tbl);
1068
1069 -- copy data back from the local variables to OUT or IN-OUT args, if any
1070
1071
1072
1073
1074
1075
1076
1080
1077
1078
1079
1081
1082 pv_terr_assign_pub_w.rosetta_table_copy_out_p30(ddx_prtnr_access_id_tbl, p12_a0
1083 );
1084 end;
1085
1086 end pv_terr_assign_pub_w;