[Home] [Help]
PACKAGE BODY: APPS.JTF_TERR_LOOKUP_PUB_W
Source
1 package body jtf_terr_lookup_pub_w as
2 /* $Header: jtftlkwb.pls 120.0 2005/06/02 18:21:17 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 function rosetta_g_miss_num_map(n number) return number as
7 a number := fnd_api.g_miss_num;
8 b number := 0-1962.0724;
9 begin
10 if n=a then return b; end if;
11 if n=b then return a; end if;
12 return n;
13 end;
14
15 -- this is to workaround the JDBC bug regarding IN DATE of value GMiss
16 function rosetta_g_miss_date_in_map(d date) return date as
17 begin
18 if d = rosetta_g_mistake_date then return fnd_api.g_miss_date; end if;
19 return d;
20 end;
21
22 procedure rosetta_table_copy_in_p3(t OUT NOCOPY jtf_terr_lookup_pub.org_name_tbl_type, a0 JTF_NUMBER_TABLE
23 , a1 JTF_NUMBER_TABLE
24 , a2 JTF_NUMBER_TABLE
25 , a3 JTF_NUMBER_TABLE
26 , a4 JTF_VARCHAR2_TABLE_400
27 , a5 JTF_VARCHAR2_TABLE_300
28 , a6 JTF_VARCHAR2_TABLE_100
29 , a7 JTF_VARCHAR2_TABLE_100
30 , a8 JTF_VARCHAR2_TABLE_100
31 , a9 JTF_VARCHAR2_TABLE_100
32 , a10 JTF_VARCHAR2_TABLE_100
33 , a11 JTF_VARCHAR2_TABLE_100
34 , a12 JTF_VARCHAR2_TABLE_100
35 , a13 JTF_NUMBER_TABLE
36 , a14 JTF_VARCHAR2_TABLE_100
37 , a15 JTF_VARCHAR2_TABLE_100
38 , a16 JTF_VARCHAR2_TABLE_100
39 , a17 JTF_VARCHAR2_TABLE_100
40 , a18 JTF_VARCHAR2_TABLE_100
41 , a19 JTF_VARCHAR2_TABLE_100
42 , a20 JTF_VARCHAR2_TABLE_100
43 , a21 JTF_VARCHAR2_TABLE_100
44 , a22 JTF_VARCHAR2_TABLE_100
45 , a23 JTF_VARCHAR2_TABLE_100
46 ) as
47 ddindx binary_integer; indx binary_integer;
48 begin
49 if a0 is not null and a0.count > 0 then
50 if a0.count > 0 then
51 indx := a0.first;
52 ddindx := 1;
53 while true loop
54 t(ddindx).party_id := a0(indx);
55 t(ddindx).location_id := a1(indx);
56 t(ddindx).party_site_id := a2(indx);
57 t(ddindx).party_site_use_id := a3(indx);
58 t(ddindx).party_name := a4(indx);
59 t(ddindx).address := a5(indx);
60 t(ddindx).city := a6(indx);
61 t(ddindx).state := a7(indx);
62 t(ddindx).province := a8(indx);
63 t(ddindx).postal_code := a9(indx);
64 t(ddindx).area_code := a10(indx);
65 t(ddindx).county := a11(indx);
66 t(ddindx).country := a12(indx);
67 t(ddindx).employees_total := a13(indx);
68 t(ddindx).category_code := a14(indx);
69 t(ddindx).sic_code := a15(indx);
70 t(ddindx).primary_flag := a16(indx);
71 t(ddindx).status := a17(indx);
72 t(ddindx).address_type := a18(indx);
73 t(ddindx).property1 := a19(indx);
74 t(ddindx).property2 := a20(indx);
75 t(ddindx).property3 := a21(indx);
76 t(ddindx).property4 := a22(indx);
77 t(ddindx).property5 := a23(indx);
78 ddindx := ddindx+1;
79 if a0.last =indx
80 then exit;
81 end if;
82 indx := a0.next(indx);
83 end loop;
84 end if;
85 end if;
86 end rosetta_table_copy_in_p3;
87 procedure rosetta_table_copy_out_p3(t jtf_terr_lookup_pub.org_name_tbl_type, a0 OUT NOCOPY JTF_NUMBER_TABLE
88 , a1 OUT NOCOPY JTF_NUMBER_TABLE
89 , a2 OUT NOCOPY JTF_NUMBER_TABLE
90 , a3 OUT NOCOPY JTF_NUMBER_TABLE
91 , a4 OUT NOCOPY JTF_VARCHAR2_TABLE_400
92 , a5 OUT NOCOPY JTF_VARCHAR2_TABLE_300
93 , a6 OUT NOCOPY JTF_VARCHAR2_TABLE_100
94 , a7 OUT NOCOPY JTF_VARCHAR2_TABLE_100
95 , a8 OUT NOCOPY JTF_VARCHAR2_TABLE_100
96 , a9 OUT NOCOPY JTF_VARCHAR2_TABLE_100
97 , a10 OUT NOCOPY JTF_VARCHAR2_TABLE_100
98 , a11 OUT NOCOPY JTF_VARCHAR2_TABLE_100
99 , a12 OUT NOCOPY JTF_VARCHAR2_TABLE_100
100 , a13 OUT NOCOPY JTF_NUMBER_TABLE
101 , a14 OUT NOCOPY JTF_VARCHAR2_TABLE_100
102 , a15 OUT NOCOPY JTF_VARCHAR2_TABLE_100
103 , a16 OUT NOCOPY JTF_VARCHAR2_TABLE_100
104 , a17 OUT NOCOPY JTF_VARCHAR2_TABLE_100
105 , a18 OUT NOCOPY JTF_VARCHAR2_TABLE_100
106 , a19 OUT NOCOPY JTF_VARCHAR2_TABLE_100
107 , a20 OUT NOCOPY JTF_VARCHAR2_TABLE_100
108 , a21 OUT NOCOPY JTF_VARCHAR2_TABLE_100
109 , a22 OUT NOCOPY JTF_VARCHAR2_TABLE_100
110 , a23 OUT NOCOPY JTF_VARCHAR2_TABLE_100
111 ) as
112 ddindx binary_integer; indx binary_integer;
113 begin
114 if t is null or t.count = 0 then
115 a0 := JTF_NUMBER_TABLE();
116 a1 := JTF_NUMBER_TABLE();
117 a2 := JTF_NUMBER_TABLE();
118 a3 := JTF_NUMBER_TABLE();
119 a4 := JTF_VARCHAR2_TABLE_400();
120 a5 := JTF_VARCHAR2_TABLE_300();
121 a6 := JTF_VARCHAR2_TABLE_100();
122 a7 := JTF_VARCHAR2_TABLE_100();
123 a8 := JTF_VARCHAR2_TABLE_100();
124 a9 := JTF_VARCHAR2_TABLE_100();
125 a10 := JTF_VARCHAR2_TABLE_100();
126 a11 := JTF_VARCHAR2_TABLE_100();
127 a12 := JTF_VARCHAR2_TABLE_100();
128 a13 := JTF_NUMBER_TABLE();
129 a14 := JTF_VARCHAR2_TABLE_100();
130 a15 := JTF_VARCHAR2_TABLE_100();
131 a16 := JTF_VARCHAR2_TABLE_100();
132 a17 := JTF_VARCHAR2_TABLE_100();
133 a18 := JTF_VARCHAR2_TABLE_100();
134 a19 := JTF_VARCHAR2_TABLE_100();
135 a20 := JTF_VARCHAR2_TABLE_100();
136 a21 := JTF_VARCHAR2_TABLE_100();
137 a22 := JTF_VARCHAR2_TABLE_100();
138 a23 := JTF_VARCHAR2_TABLE_100();
139 else
140 a0 := JTF_NUMBER_TABLE();
141 a1 := JTF_NUMBER_TABLE();
142 a2 := JTF_NUMBER_TABLE();
143 a3 := JTF_NUMBER_TABLE();
144 a4 := JTF_VARCHAR2_TABLE_400();
145 a5 := JTF_VARCHAR2_TABLE_300();
146 a6 := JTF_VARCHAR2_TABLE_100();
147 a7 := JTF_VARCHAR2_TABLE_100();
148 a8 := JTF_VARCHAR2_TABLE_100();
149 a9 := JTF_VARCHAR2_TABLE_100();
150 a10 := JTF_VARCHAR2_TABLE_100();
151 a11 := JTF_VARCHAR2_TABLE_100();
152 a12 := JTF_VARCHAR2_TABLE_100();
153 a13 := JTF_NUMBER_TABLE();
154 a14 := JTF_VARCHAR2_TABLE_100();
155 a15 := JTF_VARCHAR2_TABLE_100();
156 a16 := JTF_VARCHAR2_TABLE_100();
157 a17 := JTF_VARCHAR2_TABLE_100();
158 a18 := JTF_VARCHAR2_TABLE_100();
159 a19 := JTF_VARCHAR2_TABLE_100();
160 a20 := JTF_VARCHAR2_TABLE_100();
161 a21 := JTF_VARCHAR2_TABLE_100();
162 a22 := JTF_VARCHAR2_TABLE_100();
163 a23 := JTF_VARCHAR2_TABLE_100();
164 if t.count > 0 then
165 a0.extend(t.count);
166 a1.extend(t.count);
167 a2.extend(t.count);
168 a3.extend(t.count);
169 a4.extend(t.count);
170 a5.extend(t.count);
171 a6.extend(t.count);
172 a7.extend(t.count);
173 a8.extend(t.count);
174 a9.extend(t.count);
175 a10.extend(t.count);
176 a11.extend(t.count);
177 a12.extend(t.count);
178 a13.extend(t.count);
179 a14.extend(t.count);
180 a15.extend(t.count);
181 a16.extend(t.count);
182 a17.extend(t.count);
183 a18.extend(t.count);
184 a19.extend(t.count);
185 a20.extend(t.count);
186 a21.extend(t.count);
187 a22.extend(t.count);
188 a23.extend(t.count);
189 ddindx := t.first;
190 indx := 1;
191 while true loop
192 a0(indx) := t(ddindx).party_id;
193 a1(indx) := t(ddindx).location_id;
194 a2(indx) := t(ddindx).party_site_id;
195 a3(indx) := t(ddindx).party_site_use_id;
196 a4(indx) := t(ddindx).party_name;
197 a5(indx) := t(ddindx).address;
198 a6(indx) := t(ddindx).city;
199 a7(indx) := t(ddindx).state;
200 a8(indx) := t(ddindx).province;
201 a9(indx) := t(ddindx).postal_code;
202 a10(indx) := t(ddindx).area_code;
203 a11(indx) := t(ddindx).county;
204 a12(indx) := t(ddindx).country;
205 a13(indx) := t(ddindx).employees_total;
206 a14(indx) := t(ddindx).category_code;
207 a15(indx) := t(ddindx).sic_code;
208 a16(indx) := t(ddindx).primary_flag;
209 a17(indx) := t(ddindx).status;
210 a18(indx) := t(ddindx).address_type;
211 a19(indx) := t(ddindx).property1;
212 a20(indx) := t(ddindx).property2;
213 a21(indx) := t(ddindx).property3;
214 a22(indx) := t(ddindx).property4;
215 a23(indx) := t(ddindx).property5;
216 indx := indx+1;
217 if t.last =ddindx
218 then exit;
219 end if;
220 ddindx := t.next(ddindx);
221 end loop;
222 end if;
223 end if;
224 end rosetta_table_copy_out_p3;
225
226 procedure rosetta_table_copy_in_p5(t OUT NOCOPY jtf_terr_lookup_pub.win_rsc_tbl_type, a0 JTF_NUMBER_TABLE
227 , a1 JTF_NUMBER_TABLE
228 , a2 JTF_VARCHAR2_TABLE_200
229 , a3 JTF_VARCHAR2_TABLE_200
230 , a4 JTF_VARCHAR2_TABLE_200
231 , a5 JTF_VARCHAR2_TABLE_200
232 , a6 JTF_VARCHAR2_TABLE_200
233 , a7 JTF_VARCHAR2_TABLE_200
234 , a8 JTF_VARCHAR2_TABLE_200
235 , a9 JTF_VARCHAR2_TABLE_200
236 , a10 JTF_VARCHAR2_TABLE_200
237 , a11 JTF_VARCHAR2_TABLE_200
238 , a12 JTF_VARCHAR2_TABLE_200
239 ) as
240 ddindx binary_integer; indx binary_integer;
241 begin
242 if a0 is not null and a0.count > 0 then
243 if a0.count > 0 then
244 indx := a0.first;
245 ddindx := 1;
246 while true loop
247 t(ddindx).resource_id := a0(indx);
248 t(ddindx).terr_id := a1(indx);
249 t(ddindx).resource_name := a2(indx);
250 t(ddindx).resource_phone := a3(indx);
251 t(ddindx).resource_job_title := a4(indx);
252 t(ddindx).resource_email := a5(indx);
253 t(ddindx).resource_mgr_name := a6(indx);
254 t(ddindx).resource_mgr_phone := a7(indx);
255 t(ddindx).resource_mgr_email := a8(indx);
256 t(ddindx).resource_property1 := a9(indx);
257 t(ddindx).resource_property2 := a10(indx);
258 t(ddindx).resource_property3 := a11(indx);
259 t(ddindx).resource_property4 := a12(indx);
260 ddindx := ddindx+1;
261 if a0.last =indx
262 then exit;
263 end if;
264 indx := a0.next(indx);
265 end loop;
266 end if;
267 end if;
268 end rosetta_table_copy_in_p5;
269 procedure rosetta_table_copy_out_p5(t jtf_terr_lookup_pub.win_rsc_tbl_type, a0 OUT NOCOPY JTF_NUMBER_TABLE
270 , a1 OUT NOCOPY JTF_NUMBER_TABLE
271 , a2 OUT NOCOPY JTF_VARCHAR2_TABLE_200
272 , a3 OUT NOCOPY JTF_VARCHAR2_TABLE_200
273 , a4 OUT NOCOPY JTF_VARCHAR2_TABLE_200
274 , a5 OUT NOCOPY JTF_VARCHAR2_TABLE_200
275 , a6 OUT NOCOPY JTF_VARCHAR2_TABLE_200
276 , a7 OUT NOCOPY JTF_VARCHAR2_TABLE_200
277 , a8 OUT NOCOPY JTF_VARCHAR2_TABLE_200
278 , a9 OUT NOCOPY JTF_VARCHAR2_TABLE_200
279 , a10 OUT NOCOPY JTF_VARCHAR2_TABLE_200
280 , a11 OUT NOCOPY JTF_VARCHAR2_TABLE_200
281 , a12 OUT NOCOPY JTF_VARCHAR2_TABLE_200
282 ) as
283 ddindx binary_integer; indx binary_integer;
284 begin
285 if t is null or t.count = 0 then
286 a0 := JTF_NUMBER_TABLE();
287 a1 := JTF_NUMBER_TABLE();
288 a2 := JTF_VARCHAR2_TABLE_200();
289 a3 := JTF_VARCHAR2_TABLE_200();
290 a4 := JTF_VARCHAR2_TABLE_200();
291 a5 := JTF_VARCHAR2_TABLE_200();
292 a6 := JTF_VARCHAR2_TABLE_200();
293 a7 := JTF_VARCHAR2_TABLE_200();
294 a8 := JTF_VARCHAR2_TABLE_200();
295 a9 := JTF_VARCHAR2_TABLE_200();
296 a10 := JTF_VARCHAR2_TABLE_200();
297 a11 := JTF_VARCHAR2_TABLE_200();
298 a12 := JTF_VARCHAR2_TABLE_200();
299 else
300 a0 := JTF_NUMBER_TABLE();
301 a1 := JTF_NUMBER_TABLE();
302 a2 := JTF_VARCHAR2_TABLE_200();
303 a3 := JTF_VARCHAR2_TABLE_200();
304 a4 := JTF_VARCHAR2_TABLE_200();
305 a5 := JTF_VARCHAR2_TABLE_200();
306 a6 := JTF_VARCHAR2_TABLE_200();
307 a7 := JTF_VARCHAR2_TABLE_200();
308 a8 := JTF_VARCHAR2_TABLE_200();
309 a9 := JTF_VARCHAR2_TABLE_200();
310 a10 := JTF_VARCHAR2_TABLE_200();
311 a11 := JTF_VARCHAR2_TABLE_200();
312 a12 := JTF_VARCHAR2_TABLE_200();
313 if t.count > 0 then
314 a0.extend(t.count);
315 a1.extend(t.count);
316 a2.extend(t.count);
317 a3.extend(t.count);
318 a4.extend(t.count);
319 a5.extend(t.count);
320 a6.extend(t.count);
321 a7.extend(t.count);
322 a8.extend(t.count);
323 a9.extend(t.count);
324 a10.extend(t.count);
325 a11.extend(t.count);
326 a12.extend(t.count);
327 ddindx := t.first;
328 indx := 1;
329 while true loop
330 a0(indx) := t(ddindx).resource_id;
331 a1(indx) := t(ddindx).terr_id;
332 a2(indx) := t(ddindx).resource_name;
333 a3(indx) := t(ddindx).resource_phone;
334 a4(indx) := t(ddindx).resource_job_title;
335 a5(indx) := t(ddindx).resource_email;
336 a6(indx) := t(ddindx).resource_mgr_name;
337 a7(indx) := t(ddindx).resource_mgr_phone;
338 a8(indx) := t(ddindx).resource_mgr_email;
339 a9(indx) := t(ddindx).resource_property1;
340 a10(indx) := t(ddindx).resource_property2;
341 a11(indx) := t(ddindx).resource_property3;
342 a12(indx) := t(ddindx).resource_property4;
343 indx := indx+1;
344 if t.last =ddindx
345 then exit;
346 end if;
347 ddindx := t.next(ddindx);
348 end loop;
349 end if;
350 end if;
351 end rosetta_table_copy_out_p5;
352
353 procedure rosetta_table_copy_in_p7(t OUT NOCOPY jtf_terr_lookup_pub.winners_tbl_type, a0 JTF_VARCHAR2_TABLE_100
354 , a1 JTF_NUMBER_TABLE
355 , a2 JTF_NUMBER_TABLE
356 , a3 JTF_NUMBER_TABLE
357 , a4 JTF_NUMBER_TABLE
358 , a5 JTF_NUMBER_TABLE
359 , a6 JTF_NUMBER_TABLE
360 , a7 JTF_NUMBER_TABLE
361 , a8 JTF_NUMBER_TABLE
362 , a9 JTF_NUMBER_TABLE
363 , a10 JTF_NUMBER_TABLE
364 , a11 JTF_VARCHAR2_TABLE_400
365 , a12 JTF_NUMBER_TABLE
366 , a13 JTF_VARCHAR2_TABLE_400
367 , a14 JTF_VARCHAR2_TABLE_400
368 , a15 JTF_VARCHAR2_TABLE_400
369 , a16 JTF_VARCHAR2_TABLE_400
370 , a17 JTF_VARCHAR2_TABLE_400
371 , a18 JTF_VARCHAR2_TABLE_400
372 , a19 JTF_VARCHAR2_TABLE_400
373 , a20 JTF_VARCHAR2_TABLE_400
374 , a21 JTF_VARCHAR2_TABLE_400
375 , a22 JTF_VARCHAR2_TABLE_400
376 , a23 JTF_VARCHAR2_TABLE_400
377 , a24 JTF_VARCHAR2_TABLE_400
378 , a25 JTF_VARCHAR2_TABLE_400
379 , a26 JTF_VARCHAR2_TABLE_400
380 , a27 JTF_VARCHAR2_TABLE_400
381 , a28 JTF_VARCHAR2_TABLE_400
382 , a29 JTF_VARCHAR2_TABLE_400
383 , a30 JTF_VARCHAR2_TABLE_400
384 , a31 JTF_VARCHAR2_TABLE_400
385 , a32 JTF_VARCHAR2_TABLE_400
386 , a33 JTF_VARCHAR2_TABLE_400
387 , a34 JTF_VARCHAR2_TABLE_400
388 , a35 JTF_VARCHAR2_TABLE_400
389 , a36 JTF_VARCHAR2_TABLE_400
390 , a37 JTF_VARCHAR2_TABLE_400
391 ) as
392 ddindx binary_integer; indx binary_integer;
393 begin
394 if a0 is not null and a0.count > 0 then
395 if a0.count > 0 then
396 indx := a0.first;
397 ddindx := 1;
398 while true loop
399 t(ddindx).use_type := a0(indx);
403 t(ddindx).trans_detail_object_id := a4(indx);
400 t(ddindx).source_id := a1(indx);
401 t(ddindx).transaction_id := a2(indx);
402 t(ddindx).trans_object_id := a3(indx);
404 t(ddindx).terr_id := a5(indx);
405 t(ddindx).terr_rsc_id := a6(indx);
406 t(ddindx).terr_name := a7(indx);
407 t(ddindx).top_level_terr_id := a8(indx);
408 t(ddindx).absolute_rank := a9(indx);
409 t(ddindx).resource_id := a10(indx);
410 t(ddindx).resource_type := a11(indx);
411 t(ddindx).group_id := a12(indx);
412 t(ddindx).role := a13(indx);
413 t(ddindx).full_access_flag := a14(indx);
414 t(ddindx).primary_contact_flag := a15(indx);
415 t(ddindx).resource_name := a16(indx);
416 t(ddindx).resource_job_title := a17(indx);
417 t(ddindx).resource_phone := a18(indx);
418 t(ddindx).resource_email := a19(indx);
419 t(ddindx).resource_mgr_name := a20(indx);
420 t(ddindx).resource_mgr_phone := a21(indx);
421 t(ddindx).resource_mgr_email := a22(indx);
422 t(ddindx).property1 := a23(indx);
423 t(ddindx).property2 := a24(indx);
424 t(ddindx).property3 := a25(indx);
425 t(ddindx).property4 := a26(indx);
426 t(ddindx).property5 := a27(indx);
427 t(ddindx).property6 := a28(indx);
428 t(ddindx).property7 := a29(indx);
429 t(ddindx).property8 := a30(indx);
430 t(ddindx).property9 := a31(indx);
431 t(ddindx).property10 := a32(indx);
432 t(ddindx).property11 := a33(indx);
433 t(ddindx).property12 := a34(indx);
434 t(ddindx).property13 := a35(indx);
435 t(ddindx).property14 := a36(indx);
436 t(ddindx).property15 := a37(indx);
437 ddindx := ddindx+1;
438 if a0.last =indx
439 then exit;
440 end if;
441 indx := a0.next(indx);
442 end loop;
443 end if;
444 end if;
445 end rosetta_table_copy_in_p7;
446 procedure rosetta_table_copy_out_p7(t jtf_terr_lookup_pub.winners_tbl_type, a0 OUT NOCOPY JTF_VARCHAR2_TABLE_100
447 , a1 OUT NOCOPY JTF_NUMBER_TABLE
448 , a2 OUT NOCOPY JTF_NUMBER_TABLE
449 , a3 OUT NOCOPY JTF_NUMBER_TABLE
450 , a4 OUT NOCOPY JTF_NUMBER_TABLE
451 , a5 OUT NOCOPY JTF_NUMBER_TABLE
452 , a6 OUT NOCOPY JTF_NUMBER_TABLE
453 , a7 OUT NOCOPY JTF_NUMBER_TABLE
454 , a8 OUT NOCOPY JTF_NUMBER_TABLE
455 , a9 OUT NOCOPY JTF_NUMBER_TABLE
456 , a10 OUT NOCOPY JTF_NUMBER_TABLE
457 , a11 OUT NOCOPY JTF_VARCHAR2_TABLE_400
458 , a12 OUT NOCOPY JTF_NUMBER_TABLE
459 , a13 OUT NOCOPY JTF_VARCHAR2_TABLE_400
460 , a14 OUT NOCOPY JTF_VARCHAR2_TABLE_400
461 , a15 OUT NOCOPY JTF_VARCHAR2_TABLE_400
462 , a16 OUT NOCOPY JTF_VARCHAR2_TABLE_400
463 , a17 OUT NOCOPY JTF_VARCHAR2_TABLE_400
464 , a18 OUT NOCOPY JTF_VARCHAR2_TABLE_400
465 , a19 OUT NOCOPY JTF_VARCHAR2_TABLE_400
466 , a20 OUT NOCOPY JTF_VARCHAR2_TABLE_400
467 , a21 OUT NOCOPY JTF_VARCHAR2_TABLE_400
468 , a22 OUT NOCOPY JTF_VARCHAR2_TABLE_400
469 , a23 OUT NOCOPY JTF_VARCHAR2_TABLE_400
470 , a24 OUT NOCOPY JTF_VARCHAR2_TABLE_400
471 , a25 OUT NOCOPY JTF_VARCHAR2_TABLE_400
472 , a26 OUT NOCOPY JTF_VARCHAR2_TABLE_400
473 , a27 OUT NOCOPY JTF_VARCHAR2_TABLE_400
474 , a28 OUT NOCOPY JTF_VARCHAR2_TABLE_400
475 , a29 OUT NOCOPY JTF_VARCHAR2_TABLE_400
476 , a30 OUT NOCOPY JTF_VARCHAR2_TABLE_400
477 , a31 OUT NOCOPY JTF_VARCHAR2_TABLE_400
478 , a32 OUT NOCOPY JTF_VARCHAR2_TABLE_400
479 , a33 OUT NOCOPY JTF_VARCHAR2_TABLE_400
480 , a34 OUT NOCOPY JTF_VARCHAR2_TABLE_400
481 , a35 OUT NOCOPY JTF_VARCHAR2_TABLE_400
482 , a36 OUT NOCOPY JTF_VARCHAR2_TABLE_400
483 , a37 OUT NOCOPY JTF_VARCHAR2_TABLE_400
484 ) as
485 ddindx binary_integer; indx binary_integer;
486 begin
487 if t is null or t.count = 0 then
488 a0 := JTF_VARCHAR2_TABLE_100();
489 a1 := JTF_NUMBER_TABLE();
490 a2 := JTF_NUMBER_TABLE();
491 a3 := JTF_NUMBER_TABLE();
492 a4 := JTF_NUMBER_TABLE();
493 a5 := JTF_NUMBER_TABLE();
494 a6 := JTF_NUMBER_TABLE();
495 a7 := JTF_NUMBER_TABLE();
496 a8 := JTF_NUMBER_TABLE();
497 a9 := JTF_NUMBER_TABLE();
498 a10 := JTF_NUMBER_TABLE();
499 a11 := JTF_VARCHAR2_TABLE_400();
500 a12 := JTF_NUMBER_TABLE();
501 a13 := JTF_VARCHAR2_TABLE_400();
502 a14 := JTF_VARCHAR2_TABLE_400();
503 a15 := JTF_VARCHAR2_TABLE_400();
504 a16 := JTF_VARCHAR2_TABLE_400();
505 a17 := JTF_VARCHAR2_TABLE_400();
506 a18 := JTF_VARCHAR2_TABLE_400();
507 a19 := JTF_VARCHAR2_TABLE_400();
508 a20 := JTF_VARCHAR2_TABLE_400();
509 a21 := JTF_VARCHAR2_TABLE_400();
510 a22 := JTF_VARCHAR2_TABLE_400();
511 a23 := JTF_VARCHAR2_TABLE_400();
512 a24 := JTF_VARCHAR2_TABLE_400();
513 a25 := JTF_VARCHAR2_TABLE_400();
514 a26 := JTF_VARCHAR2_TABLE_400();
515 a27 := JTF_VARCHAR2_TABLE_400();
516 a28 := JTF_VARCHAR2_TABLE_400();
517 a29 := JTF_VARCHAR2_TABLE_400();
518 a30 := JTF_VARCHAR2_TABLE_400();
519 a31 := JTF_VARCHAR2_TABLE_400();
520 a32 := JTF_VARCHAR2_TABLE_400();
524 a36 := JTF_VARCHAR2_TABLE_400();
521 a33 := JTF_VARCHAR2_TABLE_400();
522 a34 := JTF_VARCHAR2_TABLE_400();
523 a35 := JTF_VARCHAR2_TABLE_400();
525 a37 := JTF_VARCHAR2_TABLE_400();
526 else
527 a0 := JTF_VARCHAR2_TABLE_100();
528 a1 := JTF_NUMBER_TABLE();
529 a2 := JTF_NUMBER_TABLE();
530 a3 := JTF_NUMBER_TABLE();
531 a4 := JTF_NUMBER_TABLE();
532 a5 := JTF_NUMBER_TABLE();
533 a6 := JTF_NUMBER_TABLE();
534 a7 := JTF_NUMBER_TABLE();
535 a8 := JTF_NUMBER_TABLE();
536 a9 := JTF_NUMBER_TABLE();
537 a10 := JTF_NUMBER_TABLE();
538 a11 := JTF_VARCHAR2_TABLE_400();
539 a12 := JTF_NUMBER_TABLE();
540 a13 := JTF_VARCHAR2_TABLE_400();
541 a14 := JTF_VARCHAR2_TABLE_400();
542 a15 := JTF_VARCHAR2_TABLE_400();
543 a16 := JTF_VARCHAR2_TABLE_400();
544 a17 := JTF_VARCHAR2_TABLE_400();
545 a18 := JTF_VARCHAR2_TABLE_400();
546 a19 := JTF_VARCHAR2_TABLE_400();
547 a20 := JTF_VARCHAR2_TABLE_400();
548 a21 := JTF_VARCHAR2_TABLE_400();
549 a22 := JTF_VARCHAR2_TABLE_400();
550 a23 := JTF_VARCHAR2_TABLE_400();
551 a24 := JTF_VARCHAR2_TABLE_400();
552 a25 := JTF_VARCHAR2_TABLE_400();
553 a26 := JTF_VARCHAR2_TABLE_400();
554 a27 := JTF_VARCHAR2_TABLE_400();
555 a28 := JTF_VARCHAR2_TABLE_400();
556 a29 := JTF_VARCHAR2_TABLE_400();
557 a30 := JTF_VARCHAR2_TABLE_400();
558 a31 := JTF_VARCHAR2_TABLE_400();
559 a32 := JTF_VARCHAR2_TABLE_400();
560 a33 := JTF_VARCHAR2_TABLE_400();
561 a34 := JTF_VARCHAR2_TABLE_400();
562 a35 := JTF_VARCHAR2_TABLE_400();
563 a36 := JTF_VARCHAR2_TABLE_400();
564 a37 := JTF_VARCHAR2_TABLE_400();
565 if t.count > 0 then
566 a0.extend(t.count);
567 a1.extend(t.count);
568 a2.extend(t.count);
569 a3.extend(t.count);
570 a4.extend(t.count);
571 a5.extend(t.count);
572 a6.extend(t.count);
573 a7.extend(t.count);
574 a8.extend(t.count);
575 a9.extend(t.count);
576 a10.extend(t.count);
577 a11.extend(t.count);
578 a12.extend(t.count);
579 a13.extend(t.count);
580 a14.extend(t.count);
581 a15.extend(t.count);
582 a16.extend(t.count);
583 a17.extend(t.count);
584 a18.extend(t.count);
585 a19.extend(t.count);
586 a20.extend(t.count);
587 a21.extend(t.count);
588 a22.extend(t.count);
589 a23.extend(t.count);
590 a24.extend(t.count);
591 a25.extend(t.count);
592 a26.extend(t.count);
593 a27.extend(t.count);
594 a28.extend(t.count);
595 a29.extend(t.count);
596 a30.extend(t.count);
597 a31.extend(t.count);
598 a32.extend(t.count);
599 a33.extend(t.count);
600 a34.extend(t.count);
601 a35.extend(t.count);
602 a36.extend(t.count);
603 a37.extend(t.count);
604 ddindx := t.first;
605 indx := 1;
606 while true loop
607 a0(indx) := t(ddindx).use_type;
608 a1(indx) := t(ddindx).source_id;
609 a2(indx) := t(ddindx).transaction_id;
610 a3(indx) := t(ddindx).trans_object_id;
611 a4(indx) := t(ddindx).trans_detail_object_id;
612 a5(indx) := t(ddindx).terr_id;
613 a6(indx) := t(ddindx).terr_rsc_id;
614 a7(indx) := t(ddindx).terr_name;
615 a8(indx) := t(ddindx).top_level_terr_id;
616 a9(indx) := t(ddindx).absolute_rank;
617 a10(indx) := t(ddindx).resource_id;
618 a11(indx) := t(ddindx).resource_type;
619 a12(indx) := t(ddindx).group_id;
620 a13(indx) := t(ddindx).role;
621 a14(indx) := t(ddindx).full_access_flag;
622 a15(indx) := t(ddindx).primary_contact_flag;
623 a16(indx) := t(ddindx).resource_name;
624 a17(indx) := t(ddindx).resource_job_title;
625 a18(indx) := t(ddindx).resource_phone;
626 a19(indx) := t(ddindx).resource_email;
627 a20(indx) := t(ddindx).resource_mgr_name;
628 a21(indx) := t(ddindx).resource_mgr_phone;
629 a22(indx) := t(ddindx).resource_mgr_email;
630 a23(indx) := t(ddindx).property1;
631 a24(indx) := t(ddindx).property2;
632 a25(indx) := t(ddindx).property3;
633 a26(indx) := t(ddindx).property4;
634 a27(indx) := t(ddindx).property5;
635 a28(indx) := t(ddindx).property6;
636 a29(indx) := t(ddindx).property7;
637 a30(indx) := t(ddindx).property8;
638 a31(indx) := t(ddindx).property9;
639 a32(indx) := t(ddindx).property10;
640 a33(indx) := t(ddindx).property11;
641 a34(indx) := t(ddindx).property12;
642 a35(indx) := t(ddindx).property13;
643 a36(indx) := t(ddindx).property14;
644 a37(indx) := t(ddindx).property15;
645 indx := indx+1;
646 if t.last =ddindx
647 then exit;
648 end if;
649 ddindx := t.next(ddindx);
650 end loop;
651 end if;
652 end if;
656 , p_range_high NUMBER
653 end rosetta_table_copy_out_p7;
654
655 procedure get_org_contacts(p_range_low NUMBER
657 , p_search_name VARCHAR2
658 , p_state VARCHAR2
659 , p_country VARCHAR2
660 , p_postal_code VARCHAR2
661 , p_attribute1 VARCHAR2
662 , p_attribute2 VARCHAR2
663 , p_attribute3 VARCHAR2
664 , p_attribute4 VARCHAR2
665 , p_attribute5 VARCHAR2
666 , p_attribute6 VARCHAR2
667 , p_attribute7 VARCHAR2
668 , p_attribute8 VARCHAR2
669 , p_attribute9 VARCHAR2
670 , p_attribute10 VARCHAR2
671 , p_attribute11 VARCHAR2
672 , p_attribute12 VARCHAR2
673 , p_attribute13 VARCHAR2
674 , p_attribute14 VARCHAR2
675 , p_attribute15 VARCHAR2
676 , x_total_rows OUT NOCOPY NUMBER
677 , p22_a0 OUT NOCOPY JTF_NUMBER_TABLE
678 , p22_a1 OUT NOCOPY JTF_NUMBER_TABLE
679 , p22_a2 OUT NOCOPY JTF_NUMBER_TABLE
680 , p22_a3 OUT NOCOPY JTF_NUMBER_TABLE
681 , p22_a4 OUT NOCOPY JTF_VARCHAR2_TABLE_400
682 , p22_a5 OUT NOCOPY JTF_VARCHAR2_TABLE_300
683 , p22_a6 OUT NOCOPY JTF_VARCHAR2_TABLE_100
684 , p22_a7 OUT NOCOPY JTF_VARCHAR2_TABLE_100
685 , p22_a8 OUT NOCOPY JTF_VARCHAR2_TABLE_100
686 , p22_a9 OUT NOCOPY JTF_VARCHAR2_TABLE_100
687 , p22_a10 OUT NOCOPY JTF_VARCHAR2_TABLE_100
688 , p22_a11 OUT NOCOPY JTF_VARCHAR2_TABLE_100
689 , p22_a12 OUT NOCOPY JTF_VARCHAR2_TABLE_100
690 , p22_a13 OUT NOCOPY JTF_NUMBER_TABLE
691 , p22_a14 OUT NOCOPY JTF_VARCHAR2_TABLE_100
692 , p22_a15 OUT NOCOPY JTF_VARCHAR2_TABLE_100
693 , p22_a16 OUT NOCOPY JTF_VARCHAR2_TABLE_100
694 , p22_a17 OUT NOCOPY JTF_VARCHAR2_TABLE_100
695 , p22_a18 OUT NOCOPY JTF_VARCHAR2_TABLE_100
696 , p22_a19 OUT NOCOPY JTF_VARCHAR2_TABLE_100
697 , p22_a20 OUT NOCOPY JTF_VARCHAR2_TABLE_100
698 , p22_a21 OUT NOCOPY JTF_VARCHAR2_TABLE_100
699 , p22_a22 OUT NOCOPY JTF_VARCHAR2_TABLE_100
700 , p22_a23 OUT NOCOPY JTF_VARCHAR2_TABLE_100
701 )
702 as
703 ddx_result_tbl jtf_terr_lookup_pub.org_name_tbl_type;
704 ddindx binary_integer; indx binary_integer;
705 begin
706
707 -- copy data to the local IN or IN-OUT NOCOPY args, if any
708
709
710
711
712
713
714
715
716
717
718
719
720
721
722
723
724
725
726
727
728
729
730
731 -- here's the delegated call to the old PL/SQL routine
732 jtf_terr_lookup_pub.get_org_contacts(p_range_low,
733 p_range_high,
734 p_search_name,
735 p_state,
736 p_country,
737 p_postal_code,
738 p_attribute1,
739 p_attribute2,
740 p_attribute3,
741 p_attribute4,
742 p_attribute5,
743 p_attribute6,
744 p_attribute7,
745 p_attribute8,
746 p_attribute9,
747 p_attribute10,
748 p_attribute11,
749 p_attribute12,
750 p_attribute13,
751 p_attribute14,
752 p_attribute15,
753 x_total_rows,
754 ddx_result_tbl);
755
756 -- copy data back from the local OUT NOCOPY or IN-OUT NOCOPY args, if any
757
758
759
760
761
762
763
764
765
766
767
768
769
770
771
772
773
774
775
776
777
778
779 jtf_terr_lookup_pub_w.rosetta_table_copy_out_p3(ddx_result_tbl, p22_a0
780 , p22_a1
781 , p22_a2
782 , p22_a3
783 , p22_a4
784 , p22_a5
785 , p22_a6
786 , p22_a7
787 , p22_a8
788 , p22_a9
789 , p22_a10
790 , p22_a11
791 , p22_a12
792 , p22_a13
793 , p22_a14
794 , p22_a15
795 , p22_a16
796 , p22_a17
797 , p22_a18
798 , p22_a19
799 , p22_a20
800 , p22_a21
801 , p22_a22
802 , p22_a23
803 );
804 end;
805
806 procedure get_winners(p_api_version_number NUMBER
807 , p_init_msg_list VARCHAR2
808 , p2_a0 VARCHAR2
809 , p2_a1 NUMBER
810 , p2_a2 NUMBER
811 , p2_a3 NUMBER
812 , p2_a4 NUMBER
813 , p2_a5 VARCHAR2
814 , p2_a6 VARCHAR2
815 , p2_a7 VARCHAR2
816 , p2_a8 VARCHAR2
817 , p2_a9 VARCHAR2
818 , p2_a10 VARCHAR2
819 , p2_a11 VARCHAR2
820 , p2_a12 VARCHAR2
821 , p2_a13 VARCHAR2
822 , p2_a14 VARCHAR2
823 , p2_a15 VARCHAR2
824 , p2_a16 VARCHAR2
825 , p2_a17 VARCHAR2
826 , p2_a18 VARCHAR2
827 , p2_a19 VARCHAR2
828 , p2_a20 VARCHAR2
829 , p2_a21 VARCHAR2
830 , p2_a22 VARCHAR2
831 , p2_a23 VARCHAR2
832 , p2_a24 VARCHAR2
833 , p2_a25 VARCHAR2
834 , p2_a26 VARCHAR2
835 , p2_a27 VARCHAR2
836 , p2_a28 VARCHAR2
837 , p2_a29 VARCHAR2
838 , p2_a30 VARCHAR2
842 , p2_a34 VARCHAR2
839 , p2_a31 VARCHAR2
840 , p2_a32 VARCHAR2
841 , p2_a33 VARCHAR2
843 , p2_a35 VARCHAR2
844 , p2_a36 VARCHAR2
845 , p2_a37 VARCHAR2
846 , p2_a38 VARCHAR2
847 , p2_a39 VARCHAR2
848 , p2_a40 VARCHAR2
849 , p2_a41 VARCHAR2
850 , p2_a42 VARCHAR2
851 , p2_a43 VARCHAR2
852 , p2_a44 VARCHAR2
853 , p2_a45 VARCHAR2
854 , p2_a46 VARCHAR2
855 , p2_a47 VARCHAR2
856 , p2_a48 VARCHAR2
857 , p2_a49 VARCHAR2
858 , p2_a50 VARCHAR2
859 , p2_a51 VARCHAR2
860 , p2_a52 VARCHAR2
861 , p2_a53 VARCHAR2
862 , p2_a54 VARCHAR2
863 , p2_a55 NUMBER
864 , p2_a56 NUMBER
865 , p2_a57 NUMBER
866 , p2_a58 NUMBER
867 , p2_a59 NUMBER
868 , p2_a60 NUMBER
869 , p2_a61 NUMBER
870 , p2_a62 NUMBER
871 , p2_a63 NUMBER
872 , p2_a64 NUMBER
873 , p2_a65 NUMBER
874 , p2_a66 NUMBER
875 , p2_a67 NUMBER
876 , p2_a68 NUMBER
877 , p2_a69 NUMBER
878 , p2_a70 NUMBER
879 , p2_a71 NUMBER
880 , p2_a72 NUMBER
881 , p2_a73 NUMBER
882 , p2_a74 NUMBER
883 , p2_a75 NUMBER
884 , p2_a76 NUMBER
885 , p2_a77 NUMBER
886 , p2_a78 NUMBER
887 , p2_a79 NUMBER
888 , p2_a80 NUMBER
889 , p2_a81 NUMBER
890 , p2_a82 NUMBER
891 , p2_a83 NUMBER
892 , p2_a84 NUMBER
893 , p2_a85 NUMBER
894 , p2_a86 NUMBER
895 , p2_a87 NUMBER
896 , p2_a88 NUMBER
897 , p2_a89 NUMBER
898 , p2_a90 NUMBER
899 , p2_a91 NUMBER
900 , p2_a92 NUMBER
901 , p2_a93 NUMBER
902 , p2_a94 NUMBER
903 , p2_a95 NUMBER
904 , p2_a96 NUMBER
905 , p2_a97 NUMBER
906 , p2_a98 NUMBER
907 , p2_a99 NUMBER
908 , p2_a100 NUMBER
909 , p2_a101 NUMBER
910 , p2_a102 NUMBER
911 , p2_a103 NUMBER
912 , p2_a104 NUMBER
913 , p_source_id NUMBER
914 , p_trans_id NUMBER
915 , p_resource_type VARCHAR2
916 , p_role VARCHAR2
917 , x_return_status OUT NOCOPY VARCHAR2
918 , x_msg_count OUT NOCOPY NUMBER
919 , x_msg_data OUT NOCOPY VARCHAR2
920 , p10_a0 OUT NOCOPY JTF_VARCHAR2_TABLE_100
921 , p10_a1 OUT NOCOPY JTF_NUMBER_TABLE
922 , p10_a2 OUT NOCOPY JTF_NUMBER_TABLE
923 , p10_a3 OUT NOCOPY JTF_NUMBER_TABLE
924 , p10_a4 OUT NOCOPY JTF_NUMBER_TABLE
925 , p10_a5 OUT NOCOPY JTF_NUMBER_TABLE
926 , p10_a6 OUT NOCOPY JTF_NUMBER_TABLE
927 , p10_a7 OUT NOCOPY JTF_NUMBER_TABLE
928 , p10_a8 OUT NOCOPY JTF_NUMBER_TABLE
929 , p10_a9 OUT NOCOPY JTF_NUMBER_TABLE
930 , p10_a10 OUT NOCOPY JTF_NUMBER_TABLE
931 , p10_a11 OUT NOCOPY JTF_VARCHAR2_TABLE_400
932 , p10_a12 OUT NOCOPY JTF_NUMBER_TABLE
933 , p10_a13 OUT NOCOPY JTF_VARCHAR2_TABLE_400
934 , p10_a14 OUT NOCOPY JTF_VARCHAR2_TABLE_400
935 , p10_a15 OUT NOCOPY JTF_VARCHAR2_TABLE_400
936 , p10_a16 OUT NOCOPY JTF_VARCHAR2_TABLE_400
937 , p10_a17 OUT NOCOPY JTF_VARCHAR2_TABLE_400
938 , p10_a18 OUT NOCOPY JTF_VARCHAR2_TABLE_400
939 , p10_a19 OUT NOCOPY JTF_VARCHAR2_TABLE_400
940 , p10_a20 OUT NOCOPY JTF_VARCHAR2_TABLE_400
941 , p10_a21 OUT NOCOPY JTF_VARCHAR2_TABLE_400
942 , p10_a22 OUT NOCOPY JTF_VARCHAR2_TABLE_400
943 , p10_a23 OUT NOCOPY JTF_VARCHAR2_TABLE_400
944 , p10_a24 OUT NOCOPY JTF_VARCHAR2_TABLE_400
945 , p10_a25 OUT NOCOPY JTF_VARCHAR2_TABLE_400
946 , p10_a26 OUT NOCOPY JTF_VARCHAR2_TABLE_400
947 , p10_a27 OUT NOCOPY JTF_VARCHAR2_TABLE_400
948 , p10_a28 OUT NOCOPY JTF_VARCHAR2_TABLE_400
949 , p10_a29 OUT NOCOPY JTF_VARCHAR2_TABLE_400
950 , p10_a30 OUT NOCOPY JTF_VARCHAR2_TABLE_400
951 , p10_a31 OUT NOCOPY JTF_VARCHAR2_TABLE_400
952 , p10_a32 OUT NOCOPY JTF_VARCHAR2_TABLE_400
953 , p10_a33 OUT NOCOPY JTF_VARCHAR2_TABLE_400
954 , p10_a34 OUT NOCOPY JTF_VARCHAR2_TABLE_400
955 , p10_a35 OUT NOCOPY JTF_VARCHAR2_TABLE_400
956 , p10_a36 OUT NOCOPY JTF_VARCHAR2_TABLE_400
957 , p10_a37 OUT NOCOPY JTF_VARCHAR2_TABLE_400
958 )
959 as
960 ddp_trans_rec jtf_terr_lookup_pub.trans_rec_type;
961 ddx_winners_tbl jtf_terr_lookup_pub.winners_tbl_type;
962 ddindx binary_integer; indx binary_integer;
963 begin
964
965 -- copy data to the local IN or IN-OUT NOCOPY args, if any
966
967
968 ddp_trans_rec.use_type := p2_a0;
969 ddp_trans_rec.source_id := p2_a1;
970 ddp_trans_rec.transaction_id := p2_a2;
971 ddp_trans_rec.trans_object_id := p2_a3;
972 ddp_trans_rec.trans_detail_object_id := p2_a4;
973 ddp_trans_rec.squal_char01 := p2_a5;
974 ddp_trans_rec.squal_char02 := p2_a6;
975 ddp_trans_rec.squal_char03 := p2_a7;
976 ddp_trans_rec.squal_char04 := p2_a8;
977 ddp_trans_rec.squal_char05 := p2_a9;
978 ddp_trans_rec.squal_char06 := p2_a10;
979 ddp_trans_rec.squal_char07 := p2_a11;
980 ddp_trans_rec.squal_char08 := p2_a12;
981 ddp_trans_rec.squal_char09 := p2_a13;
982 ddp_trans_rec.squal_char10 := p2_a14;
983 ddp_trans_rec.squal_char11 := p2_a15;
984 ddp_trans_rec.squal_char12 := p2_a16;
988 ddp_trans_rec.squal_char16 := p2_a20;
985 ddp_trans_rec.squal_char13 := p2_a17;
986 ddp_trans_rec.squal_char14 := p2_a18;
987 ddp_trans_rec.squal_char15 := p2_a19;
989 ddp_trans_rec.squal_char17 := p2_a21;
990 ddp_trans_rec.squal_char18 := p2_a22;
991 ddp_trans_rec.squal_char19 := p2_a23;
992 ddp_trans_rec.squal_char20 := p2_a24;
993 ddp_trans_rec.squal_char21 := p2_a25;
994 ddp_trans_rec.squal_char22 := p2_a26;
995 ddp_trans_rec.squal_char23 := p2_a27;
996 ddp_trans_rec.squal_char24 := p2_a28;
997 ddp_trans_rec.squal_char25 := p2_a29;
998 ddp_trans_rec.squal_char26 := p2_a30;
999 ddp_trans_rec.squal_char27 := p2_a31;
1000 ddp_trans_rec.squal_char28 := p2_a32;
1001 ddp_trans_rec.squal_char29 := p2_a33;
1002 ddp_trans_rec.squal_char30 := p2_a34;
1003 ddp_trans_rec.squal_char31 := p2_a35;
1004 ddp_trans_rec.squal_char32 := p2_a36;
1005 ddp_trans_rec.squal_char33 := p2_a37;
1006 ddp_trans_rec.squal_char34 := p2_a38;
1007 ddp_trans_rec.squal_char35 := p2_a39;
1008 ddp_trans_rec.squal_char36 := p2_a40;
1009 ddp_trans_rec.squal_char37 := p2_a41;
1010 ddp_trans_rec.squal_char38 := p2_a42;
1011 ddp_trans_rec.squal_char39 := p2_a43;
1012 ddp_trans_rec.squal_char40 := p2_a44;
1013 ddp_trans_rec.squal_char41 := p2_a45;
1014 ddp_trans_rec.squal_char42 := p2_a46;
1015 ddp_trans_rec.squal_char43 := p2_a47;
1016 ddp_trans_rec.squal_char44 := p2_a48;
1017 ddp_trans_rec.squal_char45 := p2_a49;
1018 ddp_trans_rec.squal_char46 := p2_a50;
1019 ddp_trans_rec.squal_char47 := p2_a51;
1020 ddp_trans_rec.squal_char48 := p2_a52;
1021 ddp_trans_rec.squal_char49 := p2_a53;
1022 ddp_trans_rec.squal_char50 := p2_a54;
1023 ddp_trans_rec.squal_num01 := p2_a55;
1024 ddp_trans_rec.squal_num02 := p2_a56;
1025 ddp_trans_rec.squal_num03 := p2_a57;
1026 ddp_trans_rec.squal_num04 := p2_a58;
1027 ddp_trans_rec.squal_num05 := p2_a59;
1028 ddp_trans_rec.squal_num06 := p2_a60;
1029 ddp_trans_rec.squal_num07 := p2_a61;
1030 ddp_trans_rec.squal_num08 := p2_a62;
1031 ddp_trans_rec.squal_num09 := p2_a63;
1032 ddp_trans_rec.squal_num10 := p2_a64;
1033 ddp_trans_rec.squal_num11 := p2_a65;
1034 ddp_trans_rec.squal_num12 := p2_a66;
1035 ddp_trans_rec.squal_num13 := p2_a67;
1036 ddp_trans_rec.squal_num14 := p2_a68;
1037 ddp_trans_rec.squal_num15 := p2_a69;
1038 ddp_trans_rec.squal_num16 := p2_a70;
1039 ddp_trans_rec.squal_num17 := p2_a71;
1040 ddp_trans_rec.squal_num18 := p2_a72;
1041 ddp_trans_rec.squal_num19 := p2_a73;
1042 ddp_trans_rec.squal_num20 := p2_a74;
1043 ddp_trans_rec.squal_num21 := p2_a75;
1044 ddp_trans_rec.squal_num22 := p2_a76;
1045 ddp_trans_rec.squal_num23 := p2_a77;
1046 ddp_trans_rec.squal_num24 := p2_a78;
1047 ddp_trans_rec.squal_num25 := p2_a79;
1048 ddp_trans_rec.squal_num26 := p2_a80;
1049 ddp_trans_rec.squal_num27 := p2_a81;
1050 ddp_trans_rec.squal_num28 := p2_a82;
1051 ddp_trans_rec.squal_num29 := p2_a83;
1052 ddp_trans_rec.squal_num30 := p2_a84;
1053 ddp_trans_rec.squal_num31 := p2_a85;
1054 ddp_trans_rec.squal_num32 := p2_a86;
1055 ddp_trans_rec.squal_num33 := p2_a87;
1056 ddp_trans_rec.squal_num34 := p2_a88;
1057 ddp_trans_rec.squal_num35 := p2_a89;
1058 ddp_trans_rec.squal_num36 := p2_a90;
1059 ddp_trans_rec.squal_num37 := p2_a91;
1060 ddp_trans_rec.squal_num38 := p2_a92;
1061 ddp_trans_rec.squal_num39 := p2_a93;
1062 ddp_trans_rec.squal_num40 := p2_a94;
1063 ddp_trans_rec.squal_num41 := p2_a95;
1064 ddp_trans_rec.squal_num42 := p2_a96;
1065 ddp_trans_rec.squal_num43 := p2_a97;
1066 ddp_trans_rec.squal_num44 := p2_a98;
1067 ddp_trans_rec.squal_num45 := p2_a99;
1068 ddp_trans_rec.squal_num46 := p2_a100;
1069 ddp_trans_rec.squal_num47 := p2_a101;
1070 ddp_trans_rec.squal_num48 := p2_a102;
1071 ddp_trans_rec.squal_num49 := p2_a103;
1072 ddp_trans_rec.squal_num50 := p2_a104;
1073
1074
1075
1076
1077
1078
1079
1080
1081
1082 -- here's the delegated call to the old PL/SQL routine
1083 jtf_terr_lookup_pub.get_winners(p_api_version_number,
1084 p_init_msg_list,
1085 ddp_trans_rec,
1086 p_source_id,
1087 p_trans_id,
1088 p_resource_type,
1089 p_role,
1090 x_return_status,
1091 x_msg_count,
1092 x_msg_data,
1093 ddx_winners_tbl);
1094
1095 -- copy data back from the local OUT NOCOPY or IN-OUT NOCOPY args, if any
1096
1097
1098
1099
1100
1101
1102
1103
1104
1105
1106 jtf_terr_lookup_pub_w.rosetta_table_copy_out_p7(ddx_winners_tbl, p10_a0
1107 , p10_a1
1108 , p10_a2
1109 , p10_a3
1110 , p10_a4
1111 , p10_a5
1112 , p10_a6
1113 , p10_a7
1114 , p10_a8
1115 , p10_a9
1116 , p10_a10
1117 , p10_a11
1118 , p10_a12
1119 , p10_a13
1120 , p10_a14
1121 , p10_a15
1122 , p10_a16
1123 , p10_a17
1124 , p10_a18
1125 , p10_a19
1126 , p10_a20
1127 , p10_a21
1128 , p10_a22
1129 , p10_a23
1130 , p10_a24
1131 , p10_a25
1132 , p10_a26
1133 , p10_a27
1134 , p10_a28
1135 , p10_a29
1136 , p10_a30
1137 , p10_a31
1138 , p10_a32
1139 , p10_a33
1140 , p10_a34
1141 , p10_a35
1142 , p10_a36
1143 , p10_a37
1144 );
1145 end;
1146
1147 end jtf_terr_lookup_pub_w;
1148