[Home] [Help]
PACKAGE BODY: APPS.AS_OSI_LEAD_PUB_W
Source
1 package body as_osi_lead_pub_w as
2 /* $Header: asxolpab.pls 115.2 2002/12/10 01:32:14 kichan 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 function rosetta_g_miss_num_map(n number) return number as
14 a number := fnd_api.g_miss_num;
15 b number := 0-1962.0724;
16 begin
17 if n=a then return b; end if;
18 if n=b then return a; end if;
19 return n;
20 end;
21
22 procedure rosetta_table_copy_in_p2(t out nocopy as_osi_lead_pub.osi_tbl_type, a0 JTF_DATE_TABLE
23 , a1 JTF_VARCHAR2_TABLE_100
24 , a2 JTF_DATE_TABLE
25 , a3 JTF_VARCHAR2_TABLE_100
26 , a4 JTF_VARCHAR2_TABLE_100
27 , a5 JTF_NUMBER_TABLE
28 , a6 JTF_NUMBER_TABLE
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_VARCHAR2_TABLE_100
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 , a24 JTF_VARCHAR2_TABLE_100
47 , a25 JTF_VARCHAR2_TABLE_100
48 , a26 JTF_VARCHAR2_TABLE_100
49 , a27 JTF_VARCHAR2_TABLE_100
50 , a28 JTF_VARCHAR2_TABLE_100
51 , a29 JTF_VARCHAR2_TABLE_100
52 , a30 JTF_VARCHAR2_TABLE_100
53 , a31 JTF_VARCHAR2_TABLE_100
54 , a32 JTF_VARCHAR2_TABLE_100
55 , a33 JTF_VARCHAR2_TABLE_2000
56 , a34 JTF_VARCHAR2_TABLE_2000
57 , a35 JTF_VARCHAR2_TABLE_2000
58 , a36 JTF_VARCHAR2_TABLE_2000
59 , a37 JTF_VARCHAR2_TABLE_100
60 , a38 JTF_VARCHAR2_TABLE_100
61 , a39 JTF_VARCHAR2_TABLE_100
62 , a40 JTF_VARCHAR2_TABLE_100
63 , a41 JTF_VARCHAR2_TABLE_100
64 ) as
65 ddindx binary_integer; indx binary_integer;
66 begin
67 if a0 is not null and a0.count > 0 then
68 if a0.count > 0 then
69 indx := a0.first;
70 ddindx := 1;
71 while true loop
72 t(ddindx).last_update_date := rosetta_g_miss_date_in_map(a0(indx));
73 t(ddindx).last_updated_by := a1(indx);
74 t(ddindx).creation_date := rosetta_g_miss_date_in_map(a2(indx));
75 t(ddindx).created_by := a3(indx);
76 t(ddindx).last_update_login := a4(indx);
77 t(ddindx).lead_id := rosetta_g_miss_num_map(a5(indx));
78 t(ddindx).osi_lead_id := rosetta_g_miss_num_map(a6(indx));
79 t(ddindx).cvehicle := a7(indx);
80 t(ddindx).cname_id := a8(indx);
81 t(ddindx).po_from := a9(indx);
82 t(ddindx).contr_type := a10(indx);
83 t(ddindx).contr_drafting_req := a11(indx);
84 t(ddindx).priority := a12(indx);
85 t(ddindx).senior_contr_person_id := a13(indx);
86 t(ddindx).contr_spec_person_id := a14(indx);
87 t(ddindx).bom_person_id := a15(indx);
88 t(ddindx).legal_person_id := a16(indx);
89 t(ddindx).highest_apvl := a17(indx);
90 t(ddindx).current_apvl_status := a18(indx);
91 t(ddindx).support_apvl := a19(indx);
92 t(ddindx).international_apvl := a20(indx);
93 t(ddindx).credit_apvl := a21(indx);
94 t(ddindx).fin_escrow_req := a22(indx);
95 t(ddindx).fin_escrow_status := a23(indx);
96 t(ddindx).csi_rollin := a24(indx);
97 t(ddindx).licence_credit_ver := a25(indx);
98 t(ddindx).support_credit_ver := a26(indx);
99 t(ddindx).md_deal_summary := a27(indx);
100 t(ddindx).prod_avail_ver := a28(indx);
101 t(ddindx).ship_location := a29(indx);
102 t(ddindx).tax_exempt_cert := a30(indx);
103 t(ddindx).nl_rev_alloc_req := a31(indx);
104 t(ddindx).consulting_cc := a32(indx);
105 t(ddindx).senior_contr_notes := a33(indx);
106 t(ddindx).legal_notes := a34(indx);
107 t(ddindx).bom_notes := a35(indx);
108 t(ddindx).contr_notes := a36(indx);
109 t(ddindx).contr_status := a37(indx);
110 t(ddindx).extra_docs := a38(indx);
111 t(ddindx).cust_name := a39(indx);
112 t(ddindx).site_name := a40(indx);
113 t(ddindx).oppy_name := a41(indx);
114 ddindx := ddindx+1;
115 if a0.last =indx
116 then exit;
117 end if;
118 indx := a0.next(indx);
119 end loop;
120 end if;
121 end if;
122 end rosetta_table_copy_in_p2;
123 procedure rosetta_table_copy_out_p2(t as_osi_lead_pub.osi_tbl_type, a0 out nocopy JTF_DATE_TABLE
124 , a1 out nocopy JTF_VARCHAR2_TABLE_100
125 , a2 out nocopy JTF_DATE_TABLE
126 , a3 out nocopy JTF_VARCHAR2_TABLE_100
127 , a4 out nocopy JTF_VARCHAR2_TABLE_100
128 , a5 out nocopy JTF_NUMBER_TABLE
129 , a6 out nocopy JTF_NUMBER_TABLE
130 , a7 out nocopy JTF_VARCHAR2_TABLE_100
131 , a8 out nocopy JTF_VARCHAR2_TABLE_100
132 , a9 out nocopy JTF_VARCHAR2_TABLE_100
133 , a10 out nocopy JTF_VARCHAR2_TABLE_100
134 , a11 out nocopy JTF_VARCHAR2_TABLE_100
135 , a12 out nocopy JTF_VARCHAR2_TABLE_100
136 , a13 out nocopy JTF_VARCHAR2_TABLE_100
137 , a14 out nocopy JTF_VARCHAR2_TABLE_100
138 , a15 out nocopy JTF_VARCHAR2_TABLE_100
139 , a16 out nocopy JTF_VARCHAR2_TABLE_100
140 , a17 out nocopy JTF_VARCHAR2_TABLE_100
141 , a18 out nocopy JTF_VARCHAR2_TABLE_100
142 , a19 out nocopy JTF_VARCHAR2_TABLE_100
143 , a20 out nocopy JTF_VARCHAR2_TABLE_100
144 , a21 out nocopy JTF_VARCHAR2_TABLE_100
145 , a22 out nocopy JTF_VARCHAR2_TABLE_100
146 , a23 out nocopy JTF_VARCHAR2_TABLE_100
147 , a24 out nocopy JTF_VARCHAR2_TABLE_100
148 , a25 out nocopy JTF_VARCHAR2_TABLE_100
149 , a26 out nocopy JTF_VARCHAR2_TABLE_100
150 , a27 out nocopy JTF_VARCHAR2_TABLE_100
151 , a28 out nocopy JTF_VARCHAR2_TABLE_100
152 , a29 out nocopy JTF_VARCHAR2_TABLE_100
153 , a30 out nocopy JTF_VARCHAR2_TABLE_100
154 , a31 out nocopy JTF_VARCHAR2_TABLE_100
155 , a32 out nocopy JTF_VARCHAR2_TABLE_100
156 , a33 out nocopy JTF_VARCHAR2_TABLE_2000
157 , a34 out nocopy JTF_VARCHAR2_TABLE_2000
158 , a35 out nocopy JTF_VARCHAR2_TABLE_2000
159 , a36 out nocopy JTF_VARCHAR2_TABLE_2000
160 , a37 out nocopy JTF_VARCHAR2_TABLE_100
161 , a38 out nocopy JTF_VARCHAR2_TABLE_100
162 , a39 out nocopy JTF_VARCHAR2_TABLE_100
163 , a40 out nocopy JTF_VARCHAR2_TABLE_100
164 , a41 out nocopy JTF_VARCHAR2_TABLE_100
165 ) as
166 ddindx binary_integer; indx binary_integer;
167 begin
168 if t is null or t.count = 0 then
169 a0 := JTF_DATE_TABLE();
170 a1 := JTF_VARCHAR2_TABLE_100();
171 a2 := JTF_DATE_TABLE();
172 a3 := JTF_VARCHAR2_TABLE_100();
173 a4 := JTF_VARCHAR2_TABLE_100();
174 a5 := JTF_NUMBER_TABLE();
175 a6 := JTF_NUMBER_TABLE();
176 a7 := JTF_VARCHAR2_TABLE_100();
177 a8 := JTF_VARCHAR2_TABLE_100();
178 a9 := JTF_VARCHAR2_TABLE_100();
179 a10 := JTF_VARCHAR2_TABLE_100();
180 a11 := JTF_VARCHAR2_TABLE_100();
181 a12 := JTF_VARCHAR2_TABLE_100();
182 a13 := JTF_VARCHAR2_TABLE_100();
183 a14 := JTF_VARCHAR2_TABLE_100();
184 a15 := JTF_VARCHAR2_TABLE_100();
185 a16 := JTF_VARCHAR2_TABLE_100();
186 a17 := JTF_VARCHAR2_TABLE_100();
187 a18 := JTF_VARCHAR2_TABLE_100();
188 a19 := JTF_VARCHAR2_TABLE_100();
189 a20 := JTF_VARCHAR2_TABLE_100();
190 a21 := JTF_VARCHAR2_TABLE_100();
191 a22 := JTF_VARCHAR2_TABLE_100();
192 a23 := JTF_VARCHAR2_TABLE_100();
193 a24 := JTF_VARCHAR2_TABLE_100();
194 a25 := JTF_VARCHAR2_TABLE_100();
195 a26 := JTF_VARCHAR2_TABLE_100();
196 a27 := JTF_VARCHAR2_TABLE_100();
197 a28 := JTF_VARCHAR2_TABLE_100();
198 a29 := JTF_VARCHAR2_TABLE_100();
199 a30 := JTF_VARCHAR2_TABLE_100();
200 a31 := JTF_VARCHAR2_TABLE_100();
201 a32 := JTF_VARCHAR2_TABLE_100();
202 a33 := JTF_VARCHAR2_TABLE_2000();
203 a34 := JTF_VARCHAR2_TABLE_2000();
204 a35 := JTF_VARCHAR2_TABLE_2000();
205 a36 := JTF_VARCHAR2_TABLE_2000();
206 a37 := JTF_VARCHAR2_TABLE_100();
207 a38 := JTF_VARCHAR2_TABLE_100();
208 a39 := JTF_VARCHAR2_TABLE_100();
209 a40 := JTF_VARCHAR2_TABLE_100();
210 a41 := JTF_VARCHAR2_TABLE_100();
211 else
212 a0 := JTF_DATE_TABLE();
213 a1 := JTF_VARCHAR2_TABLE_100();
214 a2 := JTF_DATE_TABLE();
215 a3 := JTF_VARCHAR2_TABLE_100();
216 a4 := JTF_VARCHAR2_TABLE_100();
217 a5 := JTF_NUMBER_TABLE();
218 a6 := JTF_NUMBER_TABLE();
219 a7 := JTF_VARCHAR2_TABLE_100();
220 a8 := JTF_VARCHAR2_TABLE_100();
221 a9 := JTF_VARCHAR2_TABLE_100();
222 a10 := JTF_VARCHAR2_TABLE_100();
223 a11 := JTF_VARCHAR2_TABLE_100();
224 a12 := JTF_VARCHAR2_TABLE_100();
225 a13 := JTF_VARCHAR2_TABLE_100();
226 a14 := JTF_VARCHAR2_TABLE_100();
227 a15 := JTF_VARCHAR2_TABLE_100();
228 a16 := JTF_VARCHAR2_TABLE_100();
229 a17 := JTF_VARCHAR2_TABLE_100();
230 a18 := JTF_VARCHAR2_TABLE_100();
231 a19 := JTF_VARCHAR2_TABLE_100();
232 a20 := JTF_VARCHAR2_TABLE_100();
233 a21 := JTF_VARCHAR2_TABLE_100();
234 a22 := JTF_VARCHAR2_TABLE_100();
235 a23 := JTF_VARCHAR2_TABLE_100();
236 a24 := JTF_VARCHAR2_TABLE_100();
237 a25 := JTF_VARCHAR2_TABLE_100();
238 a26 := JTF_VARCHAR2_TABLE_100();
239 a27 := JTF_VARCHAR2_TABLE_100();
240 a28 := JTF_VARCHAR2_TABLE_100();
241 a29 := JTF_VARCHAR2_TABLE_100();
242 a30 := JTF_VARCHAR2_TABLE_100();
243 a31 := JTF_VARCHAR2_TABLE_100();
244 a32 := JTF_VARCHAR2_TABLE_100();
245 a33 := JTF_VARCHAR2_TABLE_2000();
246 a34 := JTF_VARCHAR2_TABLE_2000();
247 a35 := JTF_VARCHAR2_TABLE_2000();
248 a36 := JTF_VARCHAR2_TABLE_2000();
249 a37 := JTF_VARCHAR2_TABLE_100();
250 a38 := JTF_VARCHAR2_TABLE_100();
251 a39 := JTF_VARCHAR2_TABLE_100();
252 a40 := JTF_VARCHAR2_TABLE_100();
253 a41 := JTF_VARCHAR2_TABLE_100();
254 if t.count > 0 then
255 a0.extend(t.count);
256 a1.extend(t.count);
257 a2.extend(t.count);
258 a3.extend(t.count);
259 a4.extend(t.count);
260 a5.extend(t.count);
261 a6.extend(t.count);
262 a7.extend(t.count);
263 a8.extend(t.count);
264 a9.extend(t.count);
265 a10.extend(t.count);
266 a11.extend(t.count);
267 a12.extend(t.count);
268 a13.extend(t.count);
269 a14.extend(t.count);
270 a15.extend(t.count);
271 a16.extend(t.count);
272 a17.extend(t.count);
273 a18.extend(t.count);
274 a19.extend(t.count);
275 a20.extend(t.count);
276 a21.extend(t.count);
277 a22.extend(t.count);
278 a23.extend(t.count);
279 a24.extend(t.count);
280 a25.extend(t.count);
281 a26.extend(t.count);
282 a27.extend(t.count);
283 a28.extend(t.count);
284 a29.extend(t.count);
285 a30.extend(t.count);
286 a31.extend(t.count);
287 a32.extend(t.count);
288 a33.extend(t.count);
289 a34.extend(t.count);
290 a35.extend(t.count);
291 a36.extend(t.count);
292 a37.extend(t.count);
293 a38.extend(t.count);
294 a39.extend(t.count);
295 a40.extend(t.count);
296 a41.extend(t.count);
297 ddindx := t.first;
298 indx := 1;
299 while true loop
300 a0(indx) := t(ddindx).last_update_date;
301 a1(indx) := t(ddindx).last_updated_by;
302 a2(indx) := t(ddindx).creation_date;
303 a3(indx) := t(ddindx).created_by;
304 a4(indx) := t(ddindx).last_update_login;
305 a5(indx) := rosetta_g_miss_num_map(t(ddindx).lead_id);
306 a6(indx) := rosetta_g_miss_num_map(t(ddindx).osi_lead_id);
307 a7(indx) := t(ddindx).cvehicle;
308 a8(indx) := t(ddindx).cname_id;
309 a9(indx) := t(ddindx).po_from;
310 a10(indx) := t(ddindx).contr_type;
311 a11(indx) := t(ddindx).contr_drafting_req;
312 a12(indx) := t(ddindx).priority;
313 a13(indx) := t(ddindx).senior_contr_person_id;
314 a14(indx) := t(ddindx).contr_spec_person_id;
315 a15(indx) := t(ddindx).bom_person_id;
316 a16(indx) := t(ddindx).legal_person_id;
317 a17(indx) := t(ddindx).highest_apvl;
318 a18(indx) := t(ddindx).current_apvl_status;
319 a19(indx) := t(ddindx).support_apvl;
320 a20(indx) := t(ddindx).international_apvl;
321 a21(indx) := t(ddindx).credit_apvl;
322 a22(indx) := t(ddindx).fin_escrow_req;
323 a23(indx) := t(ddindx).fin_escrow_status;
324 a24(indx) := t(ddindx).csi_rollin;
325 a25(indx) := t(ddindx).licence_credit_ver;
326 a26(indx) := t(ddindx).support_credit_ver;
327 a27(indx) := t(ddindx).md_deal_summary;
328 a28(indx) := t(ddindx).prod_avail_ver;
329 a29(indx) := t(ddindx).ship_location;
330 a30(indx) := t(ddindx).tax_exempt_cert;
331 a31(indx) := t(ddindx).nl_rev_alloc_req;
332 a32(indx) := t(ddindx).consulting_cc;
333 a33(indx) := t(ddindx).senior_contr_notes;
334 a34(indx) := t(ddindx).legal_notes;
335 a35(indx) := t(ddindx).bom_notes;
336 a36(indx) := t(ddindx).contr_notes;
337 a37(indx) := t(ddindx).contr_status;
338 a38(indx) := t(ddindx).extra_docs;
339 a39(indx) := t(ddindx).cust_name;
340 a40(indx) := t(ddindx).site_name;
341 a41(indx) := t(ddindx).oppy_name;
342 indx := indx+1;
343 if t.last =ddindx
344 then exit;
345 end if;
346 ddindx := t.next(ddindx);
347 end loop;
348 end if;
349 end if;
350 end rosetta_table_copy_out_p2;
351
352 procedure rosetta_table_copy_in_p6(t out nocopy as_osi_lead_pub.osi_cvb_tbl_type, a0 JTF_VARCHAR2_TABLE_100
353 , a1 JTF_VARCHAR2_TABLE_100
354 ) as
355 ddindx binary_integer; indx binary_integer;
356 begin
357 if a0 is not null and a0.count > 0 then
358 if a0.count > 0 then
359 indx := a0.first;
360 ddindx := 1;
361 while true loop
362 t(ddindx).cvehicle := a0(indx);
363 t(ddindx).vehicle := a1(indx);
364 ddindx := ddindx+1;
365 if a0.last =indx
366 then exit;
367 end if;
368 indx := a0.next(indx);
369 end loop;
370 end if;
371 end if;
372 end rosetta_table_copy_in_p6;
373 procedure rosetta_table_copy_out_p6(t as_osi_lead_pub.osi_cvb_tbl_type, a0 out nocopy JTF_VARCHAR2_TABLE_100
374 , a1 out nocopy JTF_VARCHAR2_TABLE_100
375 ) as
376 ddindx binary_integer; indx binary_integer;
377 begin
378 if t is null or t.count = 0 then
379 a0 := JTF_VARCHAR2_TABLE_100();
380 a1 := JTF_VARCHAR2_TABLE_100();
381 else
382 a0 := JTF_VARCHAR2_TABLE_100();
383 a1 := JTF_VARCHAR2_TABLE_100();
384 if t.count > 0 then
385 a0.extend(t.count);
386 a1.extend(t.count);
387 ddindx := t.first;
388 indx := 1;
389 while true loop
390 a0(indx) := t(ddindx).cvehicle;
391 a1(indx) := t(ddindx).vehicle;
392 indx := indx+1;
393 if t.last =ddindx
394 then exit;
395 end if;
396 ddindx := t.next(ddindx);
397 end loop;
398 end if;
399 end if;
400 end rosetta_table_copy_out_p6;
401
402 procedure rosetta_table_copy_in_p10(t out nocopy as_osi_lead_pub.osi_cnb_tbl_type, a0 JTF_VARCHAR2_TABLE_100
403 , a1 JTF_VARCHAR2_TABLE_100
404 , a2 JTF_VARCHAR2_TABLE_100
405 ) as
406 ddindx binary_integer; indx binary_integer;
407 begin
408 if a0 is not null and a0.count > 0 then
409 if a0.count > 0 then
410 indx := a0.first;
411 ddindx := 1;
412 while true loop
413 t(ddindx).cvehicle := a0(indx);
414 t(ddindx).contr_name := a1(indx);
415 t(ddindx).cname_id := a2(indx);
416 ddindx := ddindx+1;
417 if a0.last =indx
418 then exit;
419 end if;
420 indx := a0.next(indx);
421 end loop;
422 end if;
423 end if;
424 end rosetta_table_copy_in_p10;
425 procedure rosetta_table_copy_out_p10(t as_osi_lead_pub.osi_cnb_tbl_type, a0 out nocopy JTF_VARCHAR2_TABLE_100
426 , a1 out nocopy JTF_VARCHAR2_TABLE_100
427 , a2 out nocopy JTF_VARCHAR2_TABLE_100
428 ) as
429 ddindx binary_integer; indx binary_integer;
430 begin
431 if t is null or t.count = 0 then
432 a0 := JTF_VARCHAR2_TABLE_100();
433 a1 := JTF_VARCHAR2_TABLE_100();
434 a2 := JTF_VARCHAR2_TABLE_100();
435 else
436 a0 := JTF_VARCHAR2_TABLE_100();
437 a1 := JTF_VARCHAR2_TABLE_100();
438 a2 := JTF_VARCHAR2_TABLE_100();
439 if t.count > 0 then
440 a0.extend(t.count);
441 a1.extend(t.count);
442 a2.extend(t.count);
443 ddindx := t.first;
444 indx := 1;
445 while true loop
446 a0(indx) := t(ddindx).cvehicle;
447 a1(indx) := t(ddindx).contr_name;
448 a2(indx) := t(ddindx).cname_id;
449 indx := indx+1;
450 if t.last =ddindx
451 then exit;
452 end if;
453 ddindx := t.next(ddindx);
454 end loop;
455 end if;
456 end if;
457 end rosetta_table_copy_out_p10;
458
459 procedure rosetta_table_copy_in_p14(t out nocopy as_osi_lead_pub.osi_lkp_tbl_type, a0 JTF_VARCHAR2_TABLE_100
460 , a1 JTF_VARCHAR2_TABLE_100
461 , a2 JTF_VARCHAR2_TABLE_200
462 ) as
463 ddindx binary_integer; indx binary_integer;
464 begin
465 if a0 is not null and a0.count > 0 then
466 if a0.count > 0 then
467 indx := a0.first;
468 ddindx := 1;
469 while true loop
470 t(ddindx).lkp_type := a0(indx);
471 t(ddindx).lkp_code := a1(indx);
472 t(ddindx).lkp_value := a2(indx);
473 ddindx := ddindx+1;
474 if a0.last =indx
475 then exit;
476 end if;
477 indx := a0.next(indx);
478 end loop;
479 end if;
480 end if;
481 end rosetta_table_copy_in_p14;
482 procedure rosetta_table_copy_out_p14(t as_osi_lead_pub.osi_lkp_tbl_type, a0 out nocopy JTF_VARCHAR2_TABLE_100
483 , a1 out nocopy JTF_VARCHAR2_TABLE_100
484 , a2 out nocopy JTF_VARCHAR2_TABLE_200
485 ) as
486 ddindx binary_integer; indx binary_integer;
487 begin
488 if t is null or t.count = 0 then
489 a0 := JTF_VARCHAR2_TABLE_100();
490 a1 := JTF_VARCHAR2_TABLE_100();
491 a2 := JTF_VARCHAR2_TABLE_200();
492 else
493 a0 := JTF_VARCHAR2_TABLE_100();
494 a1 := JTF_VARCHAR2_TABLE_100();
495 a2 := JTF_VARCHAR2_TABLE_200();
496 if t.count > 0 then
497 a0.extend(t.count);
498 a1.extend(t.count);
499 a2.extend(t.count);
500 ddindx := t.first;
501 indx := 1;
502 while true loop
503 a0(indx) := t(ddindx).lkp_type;
504 a1(indx) := t(ddindx).lkp_code;
505 a2(indx) := t(ddindx).lkp_value;
506 indx := indx+1;
507 if t.last =ddindx
508 then exit;
509 end if;
510 ddindx := t.next(ddindx);
511 end loop;
512 end if;
513 end if;
514 end rosetta_table_copy_out_p14;
515
516 procedure rosetta_table_copy_in_p18(t out nocopy as_osi_lead_pub.osi_nam_tbl_type, a0 JTF_VARCHAR2_TABLE_100
517 , a1 JTF_VARCHAR2_TABLE_100
518 , a2 JTF_VARCHAR2_TABLE_100
519 ) as
520 ddindx binary_integer; indx binary_integer;
521 begin
522 if a0 is not null and a0.count > 0 then
523 if a0.count > 0 then
524 indx := a0.first;
525 ddindx := 1;
526 while true loop
527 t(ddindx).nam_type := a0(indx);
528 t(ddindx).nam_id := a1(indx);
529 t(ddindx).nam_value := a2(indx);
530 ddindx := ddindx+1;
531 if a0.last =indx
532 then exit;
533 end if;
534 indx := a0.next(indx);
535 end loop;
536 end if;
537 end if;
538 end rosetta_table_copy_in_p18;
539 procedure rosetta_table_copy_out_p18(t as_osi_lead_pub.osi_nam_tbl_type, a0 out nocopy JTF_VARCHAR2_TABLE_100
540 , a1 out nocopy JTF_VARCHAR2_TABLE_100
541 , a2 out nocopy JTF_VARCHAR2_TABLE_100
542 ) as
543 ddindx binary_integer; indx binary_integer;
544 begin
545 if t is null or t.count = 0 then
546 a0 := JTF_VARCHAR2_TABLE_100();
547 a1 := JTF_VARCHAR2_TABLE_100();
548 a2 := JTF_VARCHAR2_TABLE_100();
549 else
550 a0 := JTF_VARCHAR2_TABLE_100();
551 a1 := JTF_VARCHAR2_TABLE_100();
552 a2 := JTF_VARCHAR2_TABLE_100();
553 if t.count > 0 then
554 a0.extend(t.count);
555 a1.extend(t.count);
556 a2.extend(t.count);
557 ddindx := t.first;
558 indx := 1;
559 while true loop
560 a0(indx) := t(ddindx).nam_type;
561 a1(indx) := t(ddindx).nam_id;
562 a2(indx) := t(ddindx).nam_value;
563 indx := indx+1;
564 if t.last =ddindx
565 then exit;
566 end if;
567 ddindx := t.next(ddindx);
568 end loop;
569 end if;
570 end if;
571 end rosetta_table_copy_out_p18;
572
573 procedure rosetta_table_copy_in_p22(t out nocopy as_osi_lead_pub.osi_ccs_tbl_type, a0 JTF_VARCHAR2_TABLE_100
574 , a1 JTF_VARCHAR2_TABLE_100
575 ) as
576 ddindx binary_integer; indx binary_integer;
577 begin
578 if a0 is not null and a0.count > 0 then
579 if a0.count > 0 then
580 indx := a0.first;
581 ddindx := 1;
582 while true loop
583 t(ddindx).cc := a0(indx);
584 t(ddindx).center_name := a1(indx);
585 ddindx := ddindx+1;
586 if a0.last =indx
587 then exit;
588 end if;
589 indx := a0.next(indx);
590 end loop;
591 end if;
592 end if;
593 end rosetta_table_copy_in_p22;
594 procedure rosetta_table_copy_out_p22(t as_osi_lead_pub.osi_ccs_tbl_type, a0 out nocopy JTF_VARCHAR2_TABLE_100
595 , a1 out nocopy JTF_VARCHAR2_TABLE_100
596 ) as
597 ddindx binary_integer; indx binary_integer;
598 begin
599 if t is null or t.count = 0 then
600 a0 := JTF_VARCHAR2_TABLE_100();
601 a1 := JTF_VARCHAR2_TABLE_100();
602 else
603 a0 := JTF_VARCHAR2_TABLE_100();
604 a1 := JTF_VARCHAR2_TABLE_100();
605 if t.count > 0 then
606 a0.extend(t.count);
607 a1.extend(t.count);
608 ddindx := t.first;
609 indx := 1;
610 while true loop
611 a0(indx) := t(ddindx).cc;
612 a1(indx) := t(ddindx).center_name;
613 indx := indx+1;
614 if t.last =ddindx
615 then exit;
616 end if;
617 ddindx := t.next(ddindx);
618 end loop;
619 end if;
620 end if;
621 end rosetta_table_copy_out_p22;
622
623 procedure rosetta_table_copy_in_p26(t out nocopy as_osi_lead_pub.osi_ovm_tbl_type, a0 JTF_VARCHAR2_TABLE_100
624 , a1 JTF_VARCHAR2_TABLE_100
625 ) as
626 ddindx binary_integer; indx binary_integer;
627 begin
628 if a0 is not null and a0.count > 0 then
629 if a0.count > 0 then
630 indx := a0.first;
631 ddindx := 1;
632 while true loop
633 t(ddindx).ovm_code := a0(indx);
634 t(ddindx).ovm_value := a1(indx);
635 ddindx := ddindx+1;
636 if a0.last =indx
637 then exit;
638 end if;
639 indx := a0.next(indx);
640 end loop;
641 end if;
642 end if;
643 end rosetta_table_copy_in_p26;
644 procedure rosetta_table_copy_out_p26(t as_osi_lead_pub.osi_ovm_tbl_type, a0 out nocopy JTF_VARCHAR2_TABLE_100
645 , a1 out nocopy JTF_VARCHAR2_TABLE_100
646 ) as
647 ddindx binary_integer; indx binary_integer;
648 begin
649 if t is null or t.count = 0 then
650 a0 := JTF_VARCHAR2_TABLE_100();
651 a1 := JTF_VARCHAR2_TABLE_100();
652 else
653 a0 := JTF_VARCHAR2_TABLE_100();
654 a1 := JTF_VARCHAR2_TABLE_100();
655 if t.count > 0 then
656 a0.extend(t.count);
657 a1.extend(t.count);
658 ddindx := t.first;
659 indx := 1;
660 while true loop
661 a0(indx) := t(ddindx).ovm_code;
662 a1(indx) := t(ddindx).ovm_value;
663 indx := indx+1;
664 if t.last =ddindx
665 then exit;
666 end if;
667 ddindx := t.next(ddindx);
668 end loop;
669 end if;
670 end if;
671 end rosetta_table_copy_out_p26;
672
673 procedure rosetta_table_copy_in_p30(t out nocopy as_osi_lead_pub.osi_ovd_tbl_type, a0 JTF_VARCHAR2_TABLE_100
674 , a1 JTF_VARCHAR2_TABLE_100
675 ) as
676 ddindx binary_integer; indx binary_integer;
677 begin
678 if a0 is not null and a0.count > 0 then
679 if a0.count > 0 then
680 indx := a0.first;
681 ddindx := 1;
682 while true loop
683 t(ddindx).ovd_code := a0(indx);
684 t(ddindx).ovd_flag := a1(indx);
685 ddindx := ddindx+1;
686 if a0.last =indx
687 then exit;
688 end if;
689 indx := a0.next(indx);
690 end loop;
691 end if;
692 end if;
693 end rosetta_table_copy_in_p30;
694 procedure rosetta_table_copy_out_p30(t as_osi_lead_pub.osi_ovd_tbl_type, a0 out nocopy JTF_VARCHAR2_TABLE_100
695 , a1 out nocopy JTF_VARCHAR2_TABLE_100
696 ) as
697 ddindx binary_integer; indx binary_integer;
698 begin
699 if t is null or t.count = 0 then
700 a0 := JTF_VARCHAR2_TABLE_100();
701 a1 := JTF_VARCHAR2_TABLE_100();
702 else
703 a0 := JTF_VARCHAR2_TABLE_100();
704 a1 := JTF_VARCHAR2_TABLE_100();
705 if t.count > 0 then
706 a0.extend(t.count);
707 a1.extend(t.count);
708 ddindx := t.first;
709 indx := 1;
710 while true loop
711 a0(indx) := t(ddindx).ovd_code;
712 a1(indx) := t(ddindx).ovd_flag;
713 indx := indx+1;
714 if t.last =ddindx
715 then exit;
716 end if;
717 ddindx := t.next(ddindx);
718 end loop;
719 end if;
720 end if;
721 end rosetta_table_copy_out_p30;
722
723 procedure osi_lead_fetch(p_api_version_number NUMBER
724 , p_lead_id VARCHAR2
725 , p2_a0 out nocopy DATE
726 , p2_a1 out nocopy VARCHAR2
727 , p2_a2 out nocopy DATE
728 , p2_a3 out nocopy VARCHAR2
729 , p2_a4 out nocopy VARCHAR2
730 , p2_a5 out nocopy NUMBER
731 , p2_a6 out nocopy NUMBER
732 , p2_a7 out nocopy VARCHAR2
733 , p2_a8 out nocopy VARCHAR2
734 , p2_a9 out nocopy VARCHAR2
735 , p2_a10 out nocopy VARCHAR2
736 , p2_a11 out nocopy VARCHAR2
737 , p2_a12 out nocopy VARCHAR2
738 , p2_a13 out nocopy VARCHAR2
739 , p2_a14 out nocopy VARCHAR2
740 , p2_a15 out nocopy VARCHAR2
741 , p2_a16 out nocopy VARCHAR2
742 , p2_a17 out nocopy VARCHAR2
743 , p2_a18 out nocopy VARCHAR2
744 , p2_a19 out nocopy VARCHAR2
745 , p2_a20 out nocopy VARCHAR2
746 , p2_a21 out nocopy VARCHAR2
747 , p2_a22 out nocopy VARCHAR2
748 , p2_a23 out nocopy VARCHAR2
749 , p2_a24 out nocopy VARCHAR2
750 , p2_a25 out nocopy VARCHAR2
751 , p2_a26 out nocopy VARCHAR2
752 , p2_a27 out nocopy VARCHAR2
753 , p2_a28 out nocopy VARCHAR2
754 , p2_a29 out nocopy VARCHAR2
755 , p2_a30 out nocopy VARCHAR2
756 , p2_a31 out nocopy VARCHAR2
757 , p2_a32 out nocopy VARCHAR2
758 , p2_a33 out nocopy VARCHAR2
759 , p2_a34 out nocopy VARCHAR2
760 , p2_a35 out nocopy VARCHAR2
761 , p2_a36 out nocopy VARCHAR2
762 , p2_a37 out nocopy VARCHAR2
763 , p2_a38 out nocopy VARCHAR2
764 , p2_a39 out nocopy VARCHAR2
765 , p2_a40 out nocopy VARCHAR2
766 , p2_a41 out nocopy VARCHAR2
767 , p3_a0 out nocopy JTF_VARCHAR2_TABLE_100
768 , p3_a1 out nocopy JTF_VARCHAR2_TABLE_100
769 )
770
771 as
772 ddp_osi_rec as_osi_lead_pub.osi_rec_type;
773 ddp_osi_ovd_tbl as_osi_lead_pub.osi_ovd_tbl_type;
774 ddindx binary_integer; indx binary_integer;
775 begin
776
777 -- copy data to the local IN or IN-OUT args, if any
778
779
780
781
782 -- here's the delegated call to the old PL/SQL routine
783 as_osi_lead_pub.osi_lead_fetch(p_api_version_number,
784 p_lead_id,
785 ddp_osi_rec,
786 ddp_osi_ovd_tbl);
787
788 -- copy data back from the local variables to OUT or IN-OUT args, if any
789
790
791 p2_a0 := ddp_osi_rec.last_update_date;
792 p2_a1 := ddp_osi_rec.last_updated_by;
793 p2_a2 := ddp_osi_rec.creation_date;
794 p2_a3 := ddp_osi_rec.created_by;
795 p2_a4 := ddp_osi_rec.last_update_login;
796 p2_a5 := rosetta_g_miss_num_map(ddp_osi_rec.lead_id);
797 p2_a6 := rosetta_g_miss_num_map(ddp_osi_rec.osi_lead_id);
798 p2_a7 := ddp_osi_rec.cvehicle;
799 p2_a8 := ddp_osi_rec.cname_id;
800 p2_a9 := ddp_osi_rec.po_from;
801 p2_a10 := ddp_osi_rec.contr_type;
802 p2_a11 := ddp_osi_rec.contr_drafting_req;
803 p2_a12 := ddp_osi_rec.priority;
804 p2_a13 := ddp_osi_rec.senior_contr_person_id;
805 p2_a14 := ddp_osi_rec.contr_spec_person_id;
806 p2_a15 := ddp_osi_rec.bom_person_id;
807 p2_a16 := ddp_osi_rec.legal_person_id;
808 p2_a17 := ddp_osi_rec.highest_apvl;
809 p2_a18 := ddp_osi_rec.current_apvl_status;
810 p2_a19 := ddp_osi_rec.support_apvl;
811 p2_a20 := ddp_osi_rec.international_apvl;
812 p2_a21 := ddp_osi_rec.credit_apvl;
813 p2_a22 := ddp_osi_rec.fin_escrow_req;
814 p2_a23 := ddp_osi_rec.fin_escrow_status;
815 p2_a24 := ddp_osi_rec.csi_rollin;
816 p2_a25 := ddp_osi_rec.licence_credit_ver;
817 p2_a26 := ddp_osi_rec.support_credit_ver;
818 p2_a27 := ddp_osi_rec.md_deal_summary;
819 p2_a28 := ddp_osi_rec.prod_avail_ver;
820 p2_a29 := ddp_osi_rec.ship_location;
821 p2_a30 := ddp_osi_rec.tax_exempt_cert;
822 p2_a31 := ddp_osi_rec.nl_rev_alloc_req;
823 p2_a32 := ddp_osi_rec.consulting_cc;
824 p2_a33 := ddp_osi_rec.senior_contr_notes;
825 p2_a34 := ddp_osi_rec.legal_notes;
826 p2_a35 := ddp_osi_rec.bom_notes;
827 p2_a36 := ddp_osi_rec.contr_notes;
828 p2_a37 := ddp_osi_rec.contr_status;
829 p2_a38 := ddp_osi_rec.extra_docs;
830 p2_a39 := ddp_osi_rec.cust_name;
831 p2_a40 := ddp_osi_rec.site_name;
832 p2_a41 := ddp_osi_rec.oppy_name;
833
834 as_osi_lead_pub_w.rosetta_table_copy_out_p30(ddp_osi_ovd_tbl, p3_a0
835 , p3_a1
836 );
837 end;
838
839 procedure osi_lead_fetch_all(p_api_version_number NUMBER
840 , p_lead_id VARCHAR2
841 , p2_a0 out nocopy DATE
842 , p2_a1 out nocopy VARCHAR2
843 , p2_a2 out nocopy DATE
844 , p2_a3 out nocopy VARCHAR2
845 , p2_a4 out nocopy VARCHAR2
846 , p2_a5 out nocopy NUMBER
847 , p2_a6 out nocopy NUMBER
848 , p2_a7 out nocopy VARCHAR2
849 , p2_a8 out nocopy VARCHAR2
850 , p2_a9 out nocopy VARCHAR2
851 , p2_a10 out nocopy VARCHAR2
852 , p2_a11 out nocopy VARCHAR2
853 , p2_a12 out nocopy VARCHAR2
854 , p2_a13 out nocopy VARCHAR2
855 , p2_a14 out nocopy VARCHAR2
856 , p2_a15 out nocopy VARCHAR2
857 , p2_a16 out nocopy VARCHAR2
858 , p2_a17 out nocopy VARCHAR2
859 , p2_a18 out nocopy VARCHAR2
860 , p2_a19 out nocopy VARCHAR2
861 , p2_a20 out nocopy VARCHAR2
862 , p2_a21 out nocopy VARCHAR2
863 , p2_a22 out nocopy VARCHAR2
864 , p2_a23 out nocopy VARCHAR2
865 , p2_a24 out nocopy VARCHAR2
866 , p2_a25 out nocopy VARCHAR2
867 , p2_a26 out nocopy VARCHAR2
868 , p2_a27 out nocopy VARCHAR2
869 , p2_a28 out nocopy VARCHAR2
870 , p2_a29 out nocopy VARCHAR2
871 , p2_a30 out nocopy VARCHAR2
872 , p2_a31 out nocopy VARCHAR2
873 , p2_a32 out nocopy VARCHAR2
874 , p2_a33 out nocopy VARCHAR2
875 , p2_a34 out nocopy VARCHAR2
876 , p2_a35 out nocopy VARCHAR2
877 , p2_a36 out nocopy VARCHAR2
878 , p2_a37 out nocopy VARCHAR2
879 , p2_a38 out nocopy VARCHAR2
880 , p2_a39 out nocopy VARCHAR2
881 , p2_a40 out nocopy VARCHAR2
882 , p2_a41 out nocopy VARCHAR2
883 , p3_a0 out nocopy JTF_VARCHAR2_TABLE_100
884 , p3_a1 out nocopy JTF_VARCHAR2_TABLE_100
885 , p4_a0 out nocopy JTF_VARCHAR2_TABLE_100
886 , p4_a1 out nocopy JTF_VARCHAR2_TABLE_100
887 , p4_a2 out nocopy JTF_VARCHAR2_TABLE_100
888 , p5_a0 out nocopy JTF_VARCHAR2_TABLE_100
889 , p5_a1 out nocopy JTF_VARCHAR2_TABLE_100
890 , p5_a2 out nocopy JTF_VARCHAR2_TABLE_200
891 , p6_a0 out nocopy JTF_VARCHAR2_TABLE_100
892 , p6_a1 out nocopy JTF_VARCHAR2_TABLE_100
893 , p6_a2 out nocopy JTF_VARCHAR2_TABLE_100
894 , p7_a0 out nocopy JTF_VARCHAR2_TABLE_100
895 , p7_a1 out nocopy JTF_VARCHAR2_TABLE_100
896 , p8_a0 out nocopy JTF_VARCHAR2_TABLE_100
897 , p8_a1 out nocopy JTF_VARCHAR2_TABLE_100
898 , p9_a0 out nocopy JTF_VARCHAR2_TABLE_100
899 , p9_a1 out nocopy JTF_VARCHAR2_TABLE_100
900 )
901
902 as
903 ddp_osi_rec as_osi_lead_pub.osi_rec_type;
904 ddp_osi_cvb_tbl as_osi_lead_pub.osi_cvb_tbl_type;
905 ddp_osi_cnb_tbl as_osi_lead_pub.osi_cnb_tbl_type;
906 ddp_osi_lkp_tbl as_osi_lead_pub.osi_lkp_tbl_type;
907 ddp_osi_nam_tbl as_osi_lead_pub.osi_nam_tbl_type;
908 ddp_osi_ccs_tbl as_osi_lead_pub.osi_ccs_tbl_type;
909 ddp_osi_ovd_tbl as_osi_lead_pub.osi_ovd_tbl_type;
910 ddp_osi_ovm_tbl as_osi_lead_pub.osi_ovm_tbl_type;
911 ddindx binary_integer; indx binary_integer;
912 begin
913
914 -- copy data to the local IN or IN-OUT args, if any
915
916
917
918
919
920
921
922
923
924
925 -- here's the delegated call to the old PL/SQL routine
926 as_osi_lead_pub.osi_lead_fetch_all(p_api_version_number,
927 p_lead_id,
928 ddp_osi_rec,
929 ddp_osi_cvb_tbl,
930 ddp_osi_cnb_tbl,
931 ddp_osi_lkp_tbl,
932 ddp_osi_nam_tbl,
933 ddp_osi_ccs_tbl,
934 ddp_osi_ovd_tbl,
935 ddp_osi_ovm_tbl);
936
937 -- copy data back from the local variables to OUT or IN-OUT args, if any
938
939
940 p2_a0 := ddp_osi_rec.last_update_date;
941 p2_a1 := ddp_osi_rec.last_updated_by;
942 p2_a2 := ddp_osi_rec.creation_date;
943 p2_a3 := ddp_osi_rec.created_by;
944 p2_a4 := ddp_osi_rec.last_update_login;
945 p2_a5 := rosetta_g_miss_num_map(ddp_osi_rec.lead_id);
946 p2_a6 := rosetta_g_miss_num_map(ddp_osi_rec.osi_lead_id);
947 p2_a7 := ddp_osi_rec.cvehicle;
948 p2_a8 := ddp_osi_rec.cname_id;
949 p2_a9 := ddp_osi_rec.po_from;
950 p2_a10 := ddp_osi_rec.contr_type;
951 p2_a11 := ddp_osi_rec.contr_drafting_req;
952 p2_a12 := ddp_osi_rec.priority;
953 p2_a13 := ddp_osi_rec.senior_contr_person_id;
954 p2_a14 := ddp_osi_rec.contr_spec_person_id;
955 p2_a15 := ddp_osi_rec.bom_person_id;
956 p2_a16 := ddp_osi_rec.legal_person_id;
957 p2_a17 := ddp_osi_rec.highest_apvl;
958 p2_a18 := ddp_osi_rec.current_apvl_status;
959 p2_a19 := ddp_osi_rec.support_apvl;
960 p2_a20 := ddp_osi_rec.international_apvl;
961 p2_a21 := ddp_osi_rec.credit_apvl;
962 p2_a22 := ddp_osi_rec.fin_escrow_req;
963 p2_a23 := ddp_osi_rec.fin_escrow_status;
964 p2_a24 := ddp_osi_rec.csi_rollin;
965 p2_a25 := ddp_osi_rec.licence_credit_ver;
966 p2_a26 := ddp_osi_rec.support_credit_ver;
967 p2_a27 := ddp_osi_rec.md_deal_summary;
968 p2_a28 := ddp_osi_rec.prod_avail_ver;
969 p2_a29 := ddp_osi_rec.ship_location;
970 p2_a30 := ddp_osi_rec.tax_exempt_cert;
971 p2_a31 := ddp_osi_rec.nl_rev_alloc_req;
972 p2_a32 := ddp_osi_rec.consulting_cc;
973 p2_a33 := ddp_osi_rec.senior_contr_notes;
974 p2_a34 := ddp_osi_rec.legal_notes;
975 p2_a35 := ddp_osi_rec.bom_notes;
976 p2_a36 := ddp_osi_rec.contr_notes;
977 p2_a37 := ddp_osi_rec.contr_status;
978 p2_a38 := ddp_osi_rec.extra_docs;
979 p2_a39 := ddp_osi_rec.cust_name;
980 p2_a40 := ddp_osi_rec.site_name;
981 p2_a41 := ddp_osi_rec.oppy_name;
982
983 as_osi_lead_pub_w.rosetta_table_copy_out_p6(ddp_osi_cvb_tbl, p3_a0
984 , p3_a1
985 );
986
987 as_osi_lead_pub_w.rosetta_table_copy_out_p10(ddp_osi_cnb_tbl, p4_a0
988 , p4_a1
989 , p4_a2
990 );
991
992 as_osi_lead_pub_w.rosetta_table_copy_out_p14(ddp_osi_lkp_tbl, p5_a0
993 , p5_a1
994 , p5_a2
995 );
996
997 as_osi_lead_pub_w.rosetta_table_copy_out_p18(ddp_osi_nam_tbl, p6_a0
998 , p6_a1
999 , p6_a2
1000 );
1001
1002 as_osi_lead_pub_w.rosetta_table_copy_out_p22(ddp_osi_ccs_tbl, p7_a0
1003 , p7_a1
1004 );
1005
1006 as_osi_lead_pub_w.rosetta_table_copy_out_p30(ddp_osi_ovd_tbl, p8_a0
1007 , p8_a1
1008 );
1009
1010 as_osi_lead_pub_w.rosetta_table_copy_out_p26(ddp_osi_ovm_tbl, p9_a0
1011 , p9_a1
1012 );
1013 end;
1014
1015 procedure osi_lookup_fetch_all(p_api_version_number NUMBER
1016 , p1_a0 out nocopy JTF_VARCHAR2_TABLE_100
1017 , p1_a1 out nocopy JTF_VARCHAR2_TABLE_100
1018 , p2_a0 out nocopy JTF_VARCHAR2_TABLE_100
1019 , p2_a1 out nocopy JTF_VARCHAR2_TABLE_100
1020 , p2_a2 out nocopy JTF_VARCHAR2_TABLE_100
1021 , p3_a0 out nocopy JTF_VARCHAR2_TABLE_100
1022 , p3_a1 out nocopy JTF_VARCHAR2_TABLE_100
1023 , p3_a2 out nocopy JTF_VARCHAR2_TABLE_200
1024 , p4_a0 out nocopy JTF_VARCHAR2_TABLE_100
1025 , p4_a1 out nocopy JTF_VARCHAR2_TABLE_100
1026 , p4_a2 out nocopy JTF_VARCHAR2_TABLE_100
1027 , p5_a0 out nocopy JTF_VARCHAR2_TABLE_100
1028 , p5_a1 out nocopy JTF_VARCHAR2_TABLE_100
1029 , p6_a0 out nocopy JTF_VARCHAR2_TABLE_100
1030 , p6_a1 out nocopy JTF_VARCHAR2_TABLE_100
1031 )
1032
1033 as
1034 ddp_osi_cvb_tbl as_osi_lead_pub.osi_cvb_tbl_type;
1035 ddp_osi_cnb_tbl as_osi_lead_pub.osi_cnb_tbl_type;
1036 ddp_osi_lkp_tbl as_osi_lead_pub.osi_lkp_tbl_type;
1037 ddp_osi_nam_tbl as_osi_lead_pub.osi_nam_tbl_type;
1038 ddp_osi_ccs_tbl as_osi_lead_pub.osi_ccs_tbl_type;
1039 ddp_osi_ovm_tbl as_osi_lead_pub.osi_ovm_tbl_type;
1040 ddindx binary_integer; indx binary_integer;
1041 begin
1042
1043 -- copy data to the local IN or IN-OUT args, if any
1044
1045
1046
1047
1048
1049
1050
1051 -- here's the delegated call to the old PL/SQL routine
1052 as_osi_lead_pub.osi_lookup_fetch_all(p_api_version_number,
1053 ddp_osi_cvb_tbl,
1054 ddp_osi_cnb_tbl,
1055 ddp_osi_lkp_tbl,
1056 ddp_osi_nam_tbl,
1057 ddp_osi_ccs_tbl,
1058 ddp_osi_ovm_tbl);
1059
1060 -- copy data back from the local variables to OUT or IN-OUT args, if any
1061
1062 as_osi_lead_pub_w.rosetta_table_copy_out_p6(ddp_osi_cvb_tbl, p1_a0
1063 , p1_a1
1064 );
1065
1066 as_osi_lead_pub_w.rosetta_table_copy_out_p10(ddp_osi_cnb_tbl, p2_a0
1067 , p2_a1
1068 , p2_a2
1069 );
1070
1071 as_osi_lead_pub_w.rosetta_table_copy_out_p14(ddp_osi_lkp_tbl, p3_a0
1072 , p3_a1
1073 , p3_a2
1074 );
1075
1076 as_osi_lead_pub_w.rosetta_table_copy_out_p18(ddp_osi_nam_tbl, p4_a0
1077 , p4_a1
1078 , p4_a2
1079 );
1080
1081 as_osi_lead_pub_w.rosetta_table_copy_out_p22(ddp_osi_ccs_tbl, p5_a0
1082 , p5_a1
1083 );
1084
1085 as_osi_lead_pub_w.rosetta_table_copy_out_p26(ddp_osi_ovm_tbl, p6_a0
1086 , p6_a1
1087 );
1088 end;
1089
1090 procedure osi_lead_update(p_api_version_number NUMBER
1091 , p_init_msg_list VARCHAR2
1092 , p_commit VARCHAR2
1093 , p4_a0 JTF_VARCHAR2_TABLE_100
1094 , p4_a1 JTF_VARCHAR2_TABLE_100
1095 , x_return_status out nocopy VARCHAR2
1096 , x_msg_count out nocopy VARCHAR2
1097 , x_msg_data out nocopy VARCHAR2
1098 , p3_a0 DATE := fnd_api.g_miss_date
1099 , p3_a1 VARCHAR2 := fnd_api.g_miss_char
1100 , p3_a2 DATE := fnd_api.g_miss_date
1101 , p3_a3 VARCHAR2 := fnd_api.g_miss_char
1102 , p3_a4 VARCHAR2 := fnd_api.g_miss_char
1103 , p3_a5 NUMBER := 0-1962.0724
1104 , p3_a6 NUMBER := 0-1962.0724
1105 , p3_a7 VARCHAR2 := fnd_api.g_miss_char
1106 , p3_a8 VARCHAR2 := fnd_api.g_miss_char
1107 , p3_a9 VARCHAR2 := fnd_api.g_miss_char
1108 , p3_a10 VARCHAR2 := fnd_api.g_miss_char
1109 , p3_a11 VARCHAR2 := fnd_api.g_miss_char
1110 , p3_a12 VARCHAR2 := fnd_api.g_miss_char
1111 , p3_a13 VARCHAR2 := fnd_api.g_miss_char
1112 , p3_a14 VARCHAR2 := fnd_api.g_miss_char
1113 , p3_a15 VARCHAR2 := fnd_api.g_miss_char
1114 , p3_a16 VARCHAR2 := fnd_api.g_miss_char
1115 , p3_a17 VARCHAR2 := fnd_api.g_miss_char
1116 , p3_a18 VARCHAR2 := fnd_api.g_miss_char
1117 , p3_a19 VARCHAR2 := fnd_api.g_miss_char
1118 , p3_a20 VARCHAR2 := fnd_api.g_miss_char
1119 , p3_a21 VARCHAR2 := fnd_api.g_miss_char
1120 , p3_a22 VARCHAR2 := fnd_api.g_miss_char
1121 , p3_a23 VARCHAR2 := fnd_api.g_miss_char
1122 , p3_a24 VARCHAR2 := fnd_api.g_miss_char
1123 , p3_a25 VARCHAR2 := fnd_api.g_miss_char
1124 , p3_a26 VARCHAR2 := fnd_api.g_miss_char
1125 , p3_a27 VARCHAR2 := fnd_api.g_miss_char
1126 , p3_a28 VARCHAR2 := fnd_api.g_miss_char
1127 , p3_a29 VARCHAR2 := fnd_api.g_miss_char
1128 , p3_a30 VARCHAR2 := fnd_api.g_miss_char
1129 , p3_a31 VARCHAR2 := fnd_api.g_miss_char
1130 , p3_a32 VARCHAR2 := fnd_api.g_miss_char
1131 , p3_a33 VARCHAR2 := fnd_api.g_miss_char
1132 , p3_a34 VARCHAR2 := fnd_api.g_miss_char
1133 , p3_a35 VARCHAR2 := fnd_api.g_miss_char
1134 , p3_a36 VARCHAR2 := fnd_api.g_miss_char
1135 , p3_a37 VARCHAR2 := fnd_api.g_miss_char
1136 , p3_a38 VARCHAR2 := fnd_api.g_miss_char
1137 , p3_a39 VARCHAR2 := fnd_api.g_miss_char
1138 , p3_a40 VARCHAR2 := fnd_api.g_miss_char
1139 , p3_a41 VARCHAR2 := fnd_api.g_miss_char
1140 )
1141
1142 as
1143 ddp_osi_rec as_osi_lead_pub.osi_rec_type;
1144 ddp_osi_ovd_tbl as_osi_lead_pub.osi_ovd_tbl_type;
1145 ddindx binary_integer; indx binary_integer;
1146 begin
1147
1148 -- copy data to the local IN or IN-OUT args, if any
1149
1150
1151
1152 ddp_osi_rec.last_update_date := rosetta_g_miss_date_in_map(p3_a0);
1153 ddp_osi_rec.last_updated_by := p3_a1;
1154 ddp_osi_rec.creation_date := rosetta_g_miss_date_in_map(p3_a2);
1155 ddp_osi_rec.created_by := p3_a3;
1156 ddp_osi_rec.last_update_login := p3_a4;
1157 ddp_osi_rec.lead_id := rosetta_g_miss_num_map(p3_a5);
1158 ddp_osi_rec.osi_lead_id := rosetta_g_miss_num_map(p3_a6);
1159 ddp_osi_rec.cvehicle := p3_a7;
1160 ddp_osi_rec.cname_id := p3_a8;
1161 ddp_osi_rec.po_from := p3_a9;
1162 ddp_osi_rec.contr_type := p3_a10;
1163 ddp_osi_rec.contr_drafting_req := p3_a11;
1164 ddp_osi_rec.priority := p3_a12;
1165 ddp_osi_rec.senior_contr_person_id := p3_a13;
1166 ddp_osi_rec.contr_spec_person_id := p3_a14;
1167 ddp_osi_rec.bom_person_id := p3_a15;
1168 ddp_osi_rec.legal_person_id := p3_a16;
1169 ddp_osi_rec.highest_apvl := p3_a17;
1170 ddp_osi_rec.current_apvl_status := p3_a18;
1171 ddp_osi_rec.support_apvl := p3_a19;
1172 ddp_osi_rec.international_apvl := p3_a20;
1173 ddp_osi_rec.credit_apvl := p3_a21;
1174 ddp_osi_rec.fin_escrow_req := p3_a22;
1175 ddp_osi_rec.fin_escrow_status := p3_a23;
1176 ddp_osi_rec.csi_rollin := p3_a24;
1177 ddp_osi_rec.licence_credit_ver := p3_a25;
1178 ddp_osi_rec.support_credit_ver := p3_a26;
1179 ddp_osi_rec.md_deal_summary := p3_a27;
1180 ddp_osi_rec.prod_avail_ver := p3_a28;
1181 ddp_osi_rec.ship_location := p3_a29;
1182 ddp_osi_rec.tax_exempt_cert := p3_a30;
1183 ddp_osi_rec.nl_rev_alloc_req := p3_a31;
1184 ddp_osi_rec.consulting_cc := p3_a32;
1185 ddp_osi_rec.senior_contr_notes := p3_a33;
1186 ddp_osi_rec.legal_notes := p3_a34;
1187 ddp_osi_rec.bom_notes := p3_a35;
1188 ddp_osi_rec.contr_notes := p3_a36;
1189 ddp_osi_rec.contr_status := p3_a37;
1190 ddp_osi_rec.extra_docs := p3_a38;
1191 ddp_osi_rec.cust_name := p3_a39;
1192 ddp_osi_rec.site_name := p3_a40;
1193 ddp_osi_rec.oppy_name := p3_a41;
1194
1195 as_osi_lead_pub_w.rosetta_table_copy_in_p30(ddp_osi_ovd_tbl, p4_a0
1196 , p4_a1
1197 );
1198
1199
1200
1201
1202 -- here's the delegated call to the old PL/SQL routine
1203 as_osi_lead_pub.osi_lead_update(p_api_version_number,
1204 p_init_msg_list,
1205 p_commit,
1206 ddp_osi_rec,
1207 ddp_osi_ovd_tbl,
1208 x_return_status,
1209 x_msg_count,
1210 x_msg_data);
1211
1212 -- copy data back from the local variables to OUT or IN-OUT args, if any
1213
1214
1215
1216
1217
1218
1219
1220 end;
1221
1222 procedure osi_cvb_fetch(p_api_version_number NUMBER
1223 , p1_a0 out nocopy JTF_VARCHAR2_TABLE_100
1224 , p1_a1 out nocopy JTF_VARCHAR2_TABLE_100
1225 )
1226
1227 as
1228 ddp_osi_cvb_tbl as_osi_lead_pub.osi_cvb_tbl_type;
1229 ddindx binary_integer; indx binary_integer;
1230 begin
1231
1232 -- copy data to the local IN or IN-OUT args, if any
1233
1234
1235 -- here's the delegated call to the old PL/SQL routine
1236 as_osi_lead_pub.osi_cvb_fetch(p_api_version_number,
1237 ddp_osi_cvb_tbl);
1238
1239 -- copy data back from the local variables to OUT or IN-OUT args, if any
1240
1241 as_osi_lead_pub_w.rosetta_table_copy_out_p6(ddp_osi_cvb_tbl, p1_a0
1242 , p1_a1
1243 );
1244 end;
1245
1246 procedure osi_cnb_fetch(p_api_version_number NUMBER
1247 , p1_a0 out nocopy JTF_VARCHAR2_TABLE_100
1248 , p1_a1 out nocopy JTF_VARCHAR2_TABLE_100
1249 , p1_a2 out nocopy JTF_VARCHAR2_TABLE_100
1250 )
1251
1252 as
1253 ddp_osi_cnb_tbl as_osi_lead_pub.osi_cnb_tbl_type;
1254 ddindx binary_integer; indx binary_integer;
1255 begin
1256
1257 -- copy data to the local IN or IN-OUT args, if any
1258
1259
1260 -- here's the delegated call to the old PL/SQL routine
1261 as_osi_lead_pub.osi_cnb_fetch(p_api_version_number,
1262 ddp_osi_cnb_tbl);
1263
1264 -- copy data back from the local variables to OUT or IN-OUT args, if any
1265
1266 as_osi_lead_pub_w.rosetta_table_copy_out_p10(ddp_osi_cnb_tbl, p1_a0
1267 , p1_a1
1268 , p1_a2
1269 );
1270 end;
1271
1272 procedure osi_lkp_fetch(p_api_version_number NUMBER
1273 , p_osi_lkp_type VARCHAR2
1274 , p2_a0 out nocopy JTF_VARCHAR2_TABLE_100
1275 , p2_a1 out nocopy JTF_VARCHAR2_TABLE_100
1276 , p2_a2 out nocopy JTF_VARCHAR2_TABLE_200
1277 )
1278
1279 as
1280 ddp_osi_lkp_tbl as_osi_lead_pub.osi_lkp_tbl_type;
1281 ddindx binary_integer; indx binary_integer;
1282 begin
1283
1284 -- copy data to the local IN or IN-OUT args, if any
1285
1286
1287
1288 -- here's the delegated call to the old PL/SQL routine
1289 as_osi_lead_pub.osi_lkp_fetch(p_api_version_number,
1290 p_osi_lkp_type,
1291 ddp_osi_lkp_tbl);
1292
1293 -- copy data back from the local variables to OUT or IN-OUT args, if any
1294
1295
1296 as_osi_lead_pub_w.rosetta_table_copy_out_p14(ddp_osi_lkp_tbl, p2_a0
1297 , p2_a1
1298 , p2_a2
1299 );
1300 end;
1301
1302 procedure osi_nam_fetch(p_api_version_number NUMBER
1303 , p_osi_nam_type VARCHAR2
1304 , p2_a0 out nocopy JTF_VARCHAR2_TABLE_100
1305 , p2_a1 out nocopy JTF_VARCHAR2_TABLE_100
1306 , p2_a2 out nocopy JTF_VARCHAR2_TABLE_100
1307 )
1308
1309 as
1310 ddp_osi_nam_tbl as_osi_lead_pub.osi_nam_tbl_type;
1311 ddindx binary_integer; indx binary_integer;
1312 begin
1313
1314 -- copy data to the local IN or IN-OUT args, if any
1315
1316
1317
1318 -- here's the delegated call to the old PL/SQL routine
1319 as_osi_lead_pub.osi_nam_fetch(p_api_version_number,
1320 p_osi_nam_type,
1321 ddp_osi_nam_tbl);
1322
1323 -- copy data back from the local variables to OUT or IN-OUT args, if any
1324
1325
1326 as_osi_lead_pub_w.rosetta_table_copy_out_p18(ddp_osi_nam_tbl, p2_a0
1327 , p2_a1
1328 , p2_a2
1329 );
1330 end;
1331
1332 end as_osi_lead_pub_w;