[Home] [Help]
PACKAGE BODY: APPS.AS_INTEREST_PUB_W
Source
1 package body as_interest_pub_w as
2 /* $Header: asxwintb.pls 115.14 2003/11/06 13:58:30 gbatra 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_interest_pub.interest_tbl_type, a0 JTF_NUMBER_TABLE
23 , a1 JTF_NUMBER_TABLE
24 , a2 JTF_NUMBER_TABLE
25 , a3 JTF_NUMBER_TABLE
26 , a4 JTF_NUMBER_TABLE
27 , a5 JTF_NUMBER_TABLE
28 , a6 JTF_DATE_TABLE
29 , a7 JTF_NUMBER_TABLE
30 , a8 JTF_DATE_TABLE
31 , a9 JTF_NUMBER_TABLE
32 , a10 JTF_NUMBER_TABLE
33 , a11 JTF_VARCHAR2_TABLE_100
34 , a12 JTF_NUMBER_TABLE
35 , a13 JTF_VARCHAR2_TABLE_100
36 , a14 JTF_NUMBER_TABLE
37 , a15 JTF_VARCHAR2_TABLE_100
38 , a16 JTF_VARCHAR2_TABLE_100
39 , a17 JTF_VARCHAR2_TABLE_100
40 , a18 JTF_VARCHAR2_TABLE_300
41 , a19 JTF_VARCHAR2_TABLE_100
42 , a20 JTF_VARCHAR2_TABLE_200
43 , a21 JTF_VARCHAR2_TABLE_200
44 , a22 JTF_VARCHAR2_TABLE_200
45 , a23 JTF_VARCHAR2_TABLE_200
46 , a24 JTF_VARCHAR2_TABLE_200
47 , a25 JTF_VARCHAR2_TABLE_200
48 , a26 JTF_VARCHAR2_TABLE_200
49 , a27 JTF_VARCHAR2_TABLE_200
50 , a28 JTF_VARCHAR2_TABLE_200
51 , a29 JTF_VARCHAR2_TABLE_200
52 , a30 JTF_VARCHAR2_TABLE_200
53 , a31 JTF_VARCHAR2_TABLE_200
54 , a32 JTF_VARCHAR2_TABLE_200
55 , a33 JTF_VARCHAR2_TABLE_200
56 , a34 JTF_VARCHAR2_TABLE_200
57 , a35 JTF_NUMBER_TABLE
58 , a36 JTF_NUMBER_TABLE
59 ) as
60 ddindx binary_integer; indx binary_integer;
61 begin
62 if a0 is not null and a0.count > 0 then
63 if a0.count > 0 then
64 indx := a0.first;
65 ddindx := 1;
66 while true loop
67 t(ddindx).interest_id := rosetta_g_miss_num_map(a0(indx));
68 t(ddindx).customer_id := rosetta_g_miss_num_map(a1(indx));
69 t(ddindx).address_id := rosetta_g_miss_num_map(a2(indx));
70 t(ddindx).contact_id := rosetta_g_miss_num_map(a3(indx));
71 t(ddindx).lead_id := rosetta_g_miss_num_map(a4(indx));
72 t(ddindx).interest_type_id := rosetta_g_miss_num_map(a5(indx));
73 t(ddindx).last_update_date := rosetta_g_miss_date_in_map(a6(indx));
74 t(ddindx).last_updated_by := rosetta_g_miss_num_map(a7(indx));
75 t(ddindx).creation_date := rosetta_g_miss_date_in_map(a8(indx));
76 t(ddindx).created_by := rosetta_g_miss_num_map(a9(indx));
77 t(ddindx).last_update_login := rosetta_g_miss_num_map(a10(indx));
78 t(ddindx).interest_type := a11(indx);
79 t(ddindx).primary_interest_code_id := rosetta_g_miss_num_map(a12(indx));
80 t(ddindx).primary_interest_code := a13(indx);
81 t(ddindx).secondary_interest_code_id := rosetta_g_miss_num_map(a14(indx));
82 t(ddindx).secondary_interest_code := a15(indx);
83 t(ddindx).status_code := a16(indx);
84 t(ddindx).status := a17(indx);
85 t(ddindx).description := a18(indx);
86 t(ddindx).attribute_category := a19(indx);
87 t(ddindx).attribute1 := a20(indx);
88 t(ddindx).attribute2 := a21(indx);
89 t(ddindx).attribute3 := a22(indx);
90 t(ddindx).attribute4 := a23(indx);
91 t(ddindx).attribute5 := a24(indx);
92 t(ddindx).attribute6 := a25(indx);
93 t(ddindx).attribute7 := a26(indx);
94 t(ddindx).attribute8 := a27(indx);
95 t(ddindx).attribute9 := a28(indx);
96 t(ddindx).attribute10 := a29(indx);
97 t(ddindx).attribute11 := a30(indx);
98 t(ddindx).attribute12 := a31(indx);
99 t(ddindx).attribute13 := a32(indx);
100 t(ddindx).attribute14 := a33(indx);
101 t(ddindx).attribute15 := a34(indx);
102 t(ddindx).product_category_id := rosetta_g_miss_num_map(a35(indx));
103 t(ddindx).product_cat_set_id := rosetta_g_miss_num_map(a36(indx));
104 ddindx := ddindx+1;
105 if a0.last =indx
106 then exit;
107 end if;
108 indx := a0.next(indx);
109 end loop;
110 end if;
111 end if;
112 end rosetta_table_copy_in_p2;
113 procedure rosetta_table_copy_out_p2(t as_interest_pub.interest_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
114 , a1 out nocopy JTF_NUMBER_TABLE
115 , a2 out nocopy JTF_NUMBER_TABLE
116 , a3 out nocopy JTF_NUMBER_TABLE
117 , a4 out nocopy JTF_NUMBER_TABLE
118 , a5 out nocopy JTF_NUMBER_TABLE
119 , a6 out nocopy JTF_DATE_TABLE
120 , a7 out nocopy JTF_NUMBER_TABLE
121 , a8 out nocopy JTF_DATE_TABLE
122 , a9 out nocopy JTF_NUMBER_TABLE
123 , a10 out nocopy JTF_NUMBER_TABLE
124 , a11 out nocopy JTF_VARCHAR2_TABLE_100
125 , a12 out nocopy JTF_NUMBER_TABLE
126 , a13 out nocopy JTF_VARCHAR2_TABLE_100
127 , a14 out nocopy JTF_NUMBER_TABLE
128 , a15 out nocopy JTF_VARCHAR2_TABLE_100
129 , a16 out nocopy JTF_VARCHAR2_TABLE_100
130 , a17 out nocopy JTF_VARCHAR2_TABLE_100
131 , a18 out nocopy JTF_VARCHAR2_TABLE_300
132 , a19 out nocopy JTF_VARCHAR2_TABLE_100
133 , a20 out nocopy JTF_VARCHAR2_TABLE_200
134 , a21 out nocopy JTF_VARCHAR2_TABLE_200
135 , a22 out nocopy JTF_VARCHAR2_TABLE_200
136 , a23 out nocopy JTF_VARCHAR2_TABLE_200
137 , a24 out nocopy JTF_VARCHAR2_TABLE_200
138 , a25 out nocopy JTF_VARCHAR2_TABLE_200
139 , a26 out nocopy JTF_VARCHAR2_TABLE_200
140 , a27 out nocopy JTF_VARCHAR2_TABLE_200
141 , a28 out nocopy JTF_VARCHAR2_TABLE_200
142 , a29 out nocopy JTF_VARCHAR2_TABLE_200
143 , a30 out nocopy JTF_VARCHAR2_TABLE_200
144 , a31 out nocopy JTF_VARCHAR2_TABLE_200
145 , a32 out nocopy JTF_VARCHAR2_TABLE_200
146 , a33 out nocopy JTF_VARCHAR2_TABLE_200
147 , a34 out nocopy JTF_VARCHAR2_TABLE_200
148 , a35 out nocopy JTF_NUMBER_TABLE
149 , a36 out nocopy JTF_NUMBER_TABLE
150 ) as
151 ddindx binary_integer; indx binary_integer;
152 begin
153 if t is null or t.count = 0 then
154 a0 := JTF_NUMBER_TABLE();
155 a1 := JTF_NUMBER_TABLE();
156 a2 := JTF_NUMBER_TABLE();
157 a3 := JTF_NUMBER_TABLE();
158 a4 := JTF_NUMBER_TABLE();
159 a5 := JTF_NUMBER_TABLE();
160 a6 := JTF_DATE_TABLE();
161 a7 := JTF_NUMBER_TABLE();
162 a8 := JTF_DATE_TABLE();
163 a9 := JTF_NUMBER_TABLE();
164 a10 := JTF_NUMBER_TABLE();
165 a11 := JTF_VARCHAR2_TABLE_100();
166 a12 := JTF_NUMBER_TABLE();
167 a13 := JTF_VARCHAR2_TABLE_100();
168 a14 := JTF_NUMBER_TABLE();
169 a15 := JTF_VARCHAR2_TABLE_100();
170 a16 := JTF_VARCHAR2_TABLE_100();
171 a17 := JTF_VARCHAR2_TABLE_100();
172 a18 := JTF_VARCHAR2_TABLE_300();
173 a19 := JTF_VARCHAR2_TABLE_100();
174 a20 := JTF_VARCHAR2_TABLE_200();
175 a21 := JTF_VARCHAR2_TABLE_200();
176 a22 := JTF_VARCHAR2_TABLE_200();
177 a23 := JTF_VARCHAR2_TABLE_200();
178 a24 := JTF_VARCHAR2_TABLE_200();
179 a25 := JTF_VARCHAR2_TABLE_200();
180 a26 := JTF_VARCHAR2_TABLE_200();
181 a27 := JTF_VARCHAR2_TABLE_200();
182 a28 := JTF_VARCHAR2_TABLE_200();
183 a29 := JTF_VARCHAR2_TABLE_200();
184 a30 := JTF_VARCHAR2_TABLE_200();
185 a31 := JTF_VARCHAR2_TABLE_200();
186 a32 := JTF_VARCHAR2_TABLE_200();
187 a33 := JTF_VARCHAR2_TABLE_200();
188 a34 := JTF_VARCHAR2_TABLE_200();
189 a35 := JTF_NUMBER_TABLE();
190 a36 := JTF_NUMBER_TABLE();
191 else
192 a0 := JTF_NUMBER_TABLE();
193 a1 := JTF_NUMBER_TABLE();
194 a2 := JTF_NUMBER_TABLE();
195 a3 := JTF_NUMBER_TABLE();
196 a4 := JTF_NUMBER_TABLE();
197 a5 := JTF_NUMBER_TABLE();
198 a6 := JTF_DATE_TABLE();
199 a7 := JTF_NUMBER_TABLE();
200 a8 := JTF_DATE_TABLE();
201 a9 := JTF_NUMBER_TABLE();
202 a10 := JTF_NUMBER_TABLE();
203 a11 := JTF_VARCHAR2_TABLE_100();
204 a12 := JTF_NUMBER_TABLE();
205 a13 := JTF_VARCHAR2_TABLE_100();
206 a14 := JTF_NUMBER_TABLE();
207 a15 := JTF_VARCHAR2_TABLE_100();
208 a16 := JTF_VARCHAR2_TABLE_100();
209 a17 := JTF_VARCHAR2_TABLE_100();
210 a18 := JTF_VARCHAR2_TABLE_300();
211 a19 := JTF_VARCHAR2_TABLE_100();
212 a20 := JTF_VARCHAR2_TABLE_200();
213 a21 := JTF_VARCHAR2_TABLE_200();
214 a22 := JTF_VARCHAR2_TABLE_200();
215 a23 := JTF_VARCHAR2_TABLE_200();
216 a24 := JTF_VARCHAR2_TABLE_200();
217 a25 := JTF_VARCHAR2_TABLE_200();
218 a26 := JTF_VARCHAR2_TABLE_200();
219 a27 := JTF_VARCHAR2_TABLE_200();
220 a28 := JTF_VARCHAR2_TABLE_200();
221 a29 := JTF_VARCHAR2_TABLE_200();
222 a30 := JTF_VARCHAR2_TABLE_200();
223 a31 := JTF_VARCHAR2_TABLE_200();
224 a32 := JTF_VARCHAR2_TABLE_200();
225 a33 := JTF_VARCHAR2_TABLE_200();
226 a34 := JTF_VARCHAR2_TABLE_200();
227 a35 := JTF_NUMBER_TABLE();
228 a36 := JTF_NUMBER_TABLE();
229 if t.count > 0 then
230 a0.extend(t.count);
231 a1.extend(t.count);
232 a2.extend(t.count);
233 a3.extend(t.count);
234 a4.extend(t.count);
235 a5.extend(t.count);
236 a6.extend(t.count);
237 a7.extend(t.count);
238 a8.extend(t.count);
239 a9.extend(t.count);
240 a10.extend(t.count);
241 a11.extend(t.count);
242 a12.extend(t.count);
243 a13.extend(t.count);
244 a14.extend(t.count);
245 a15.extend(t.count);
246 a16.extend(t.count);
247 a17.extend(t.count);
248 a18.extend(t.count);
249 a19.extend(t.count);
250 a20.extend(t.count);
251 a21.extend(t.count);
252 a22.extend(t.count);
253 a23.extend(t.count);
254 a24.extend(t.count);
255 a25.extend(t.count);
256 a26.extend(t.count);
257 a27.extend(t.count);
258 a28.extend(t.count);
259 a29.extend(t.count);
260 a30.extend(t.count);
261 a31.extend(t.count);
262 a32.extend(t.count);
263 a33.extend(t.count);
264 a34.extend(t.count);
265 a35.extend(t.count);
266 a36.extend(t.count);
267 ddindx := t.first;
268 indx := 1;
269 while true loop
270 a0(indx) := rosetta_g_miss_num_map(t(ddindx).interest_id);
271 a1(indx) := rosetta_g_miss_num_map(t(ddindx).customer_id);
272 a2(indx) := rosetta_g_miss_num_map(t(ddindx).address_id);
273 a3(indx) := rosetta_g_miss_num_map(t(ddindx).contact_id);
274 a4(indx) := rosetta_g_miss_num_map(t(ddindx).lead_id);
275 a5(indx) := rosetta_g_miss_num_map(t(ddindx).interest_type_id);
276 a6(indx) := t(ddindx).last_update_date;
277 a7(indx) := rosetta_g_miss_num_map(t(ddindx).last_updated_by);
278 a8(indx) := t(ddindx).creation_date;
279 a9(indx) := rosetta_g_miss_num_map(t(ddindx).created_by);
280 a10(indx) := rosetta_g_miss_num_map(t(ddindx).last_update_login);
281 a11(indx) := t(ddindx).interest_type;
282 a12(indx) := rosetta_g_miss_num_map(t(ddindx).primary_interest_code_id);
283 a13(indx) := t(ddindx).primary_interest_code;
284 a14(indx) := rosetta_g_miss_num_map(t(ddindx).secondary_interest_code_id);
285 a15(indx) := t(ddindx).secondary_interest_code;
286 a16(indx) := t(ddindx).status_code;
287 a17(indx) := t(ddindx).status;
288 a18(indx) := t(ddindx).description;
289 a19(indx) := t(ddindx).attribute_category;
290 a20(indx) := t(ddindx).attribute1;
291 a21(indx) := t(ddindx).attribute2;
292 a22(indx) := t(ddindx).attribute3;
293 a23(indx) := t(ddindx).attribute4;
294 a24(indx) := t(ddindx).attribute5;
295 a25(indx) := t(ddindx).attribute6;
296 a26(indx) := t(ddindx).attribute7;
297 a27(indx) := t(ddindx).attribute8;
298 a28(indx) := t(ddindx).attribute9;
299 a29(indx) := t(ddindx).attribute10;
300 a30(indx) := t(ddindx).attribute11;
301 a31(indx) := t(ddindx).attribute12;
302 a32(indx) := t(ddindx).attribute13;
303 a33(indx) := t(ddindx).attribute14;
304 a34(indx) := t(ddindx).attribute15;
305 a35(indx) := rosetta_g_miss_num_map(t(ddindx).product_category_id);
306 a36(indx) := rosetta_g_miss_num_map(t(ddindx).product_cat_set_id);
307 indx := indx+1;
308 if t.last =ddindx
309 then exit;
310 end if;
311 ddindx := t.next(ddindx);
312 end loop;
313 end if;
314 end if;
315 end rosetta_table_copy_out_p2;
316
317 procedure rosetta_table_copy_in_p5(t out nocopy as_interest_pub.interest_code_tbl_type, a0 JTF_NUMBER_TABLE
318 , a1 JTF_VARCHAR2_TABLE_100
319 , a2 JTF_NUMBER_TABLE
320 , a3 JTF_NUMBER_TABLE
321 , a4 JTF_VARCHAR2_TABLE_100
322 , a5 JTF_NUMBER_TABLE
323 , a6 JTF_VARCHAR2_TABLE_300
324 , a7 JTF_NUMBER_TABLE
325 , a8 JTF_NUMBER_TABLE
326 , a9 JTF_NUMBER_TABLE
327 , a10 JTF_NUMBER_TABLE
328 , a11 JTF_NUMBER_TABLE
329 , a12 JTF_NUMBER_TABLE
330 , a13 JTF_VARCHAR2_TABLE_100
331 , a14 JTF_VARCHAR2_TABLE_100
332 , a15 JTF_VARCHAR2_TABLE_200
333 , a16 JTF_VARCHAR2_TABLE_200
334 , a17 JTF_VARCHAR2_TABLE_200
335 , a18 JTF_VARCHAR2_TABLE_200
336 , a19 JTF_VARCHAR2_TABLE_200
337 , a20 JTF_VARCHAR2_TABLE_200
338 , a21 JTF_VARCHAR2_TABLE_200
339 , a22 JTF_VARCHAR2_TABLE_200
340 , a23 JTF_VARCHAR2_TABLE_200
341 , a24 JTF_VARCHAR2_TABLE_200
342 , a25 JTF_VARCHAR2_TABLE_200
343 , a26 JTF_VARCHAR2_TABLE_200
344 , a27 JTF_VARCHAR2_TABLE_200
345 , a28 JTF_VARCHAR2_TABLE_200
346 , a29 JTF_VARCHAR2_TABLE_200
347 , a30 JTF_NUMBER_TABLE
348 , a31 JTF_NUMBER_TABLE
349 ) as
350 ddindx binary_integer; indx binary_integer;
351 begin
352 if a0 is not null and a0.count > 0 then
353 if a0.count > 0 then
354 indx := a0.first;
355 ddindx := 1;
356 while true loop
357 t(ddindx).interest_code_id := rosetta_g_miss_num_map(a0(indx));
358 t(ddindx).code := a1(indx);
359 t(ddindx).interest_type_id := rosetta_g_miss_num_map(a2(indx));
360 t(ddindx).revenue_class_id := rosetta_g_miss_num_map(a3(indx));
361 t(ddindx).enabled_flag := a4(indx);
362 t(ddindx).parent_interest_code_id := rosetta_g_miss_num_map(a5(indx));
363 t(ddindx).description := a6(indx);
364 t(ddindx).category_id := rosetta_g_miss_num_map(a7(indx));
365 t(ddindx).category_set_id := rosetta_g_miss_num_map(a8(indx));
366 t(ddindx).org_id := rosetta_g_miss_num_map(a9(indx));
367 t(ddindx).pf_item_id := rosetta_g_miss_num_map(a10(indx));
368 t(ddindx).pf_organization_id := rosetta_g_miss_num_map(a11(indx));
369 t(ddindx).price := rosetta_g_miss_num_map(a12(indx));
370 t(ddindx).currency_code := a13(indx);
371 t(ddindx).attribute_category := a14(indx);
372 t(ddindx).attribute1 := a15(indx);
373 t(ddindx).attribute2 := a16(indx);
374 t(ddindx).attribute3 := a17(indx);
375 t(ddindx).attribute4 := a18(indx);
376 t(ddindx).attribute5 := a19(indx);
377 t(ddindx).attribute6 := a20(indx);
378 t(ddindx).attribute7 := a21(indx);
379 t(ddindx).attribute8 := a22(indx);
380 t(ddindx).attribute9 := a23(indx);
381 t(ddindx).attribute10 := a24(indx);
382 t(ddindx).attribute11 := a25(indx);
383 t(ddindx).attribute12 := a26(indx);
384 t(ddindx).attribute13 := a27(indx);
385 t(ddindx).attribute14 := a28(indx);
386 t(ddindx).attribute15 := a29(indx);
387 t(ddindx).product_category_id := rosetta_g_miss_num_map(a30(indx));
388 t(ddindx).product_cat_set_id := rosetta_g_miss_num_map(a31(indx));
389 ddindx := ddindx+1;
390 if a0.last =indx
391 then exit;
392 end if;
393 indx := a0.next(indx);
394 end loop;
395 end if;
396 end if;
397 end rosetta_table_copy_in_p5;
398 procedure rosetta_table_copy_out_p5(t as_interest_pub.interest_code_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
399 , a1 out nocopy JTF_VARCHAR2_TABLE_100
400 , a2 out nocopy JTF_NUMBER_TABLE
401 , a3 out nocopy JTF_NUMBER_TABLE
402 , a4 out nocopy JTF_VARCHAR2_TABLE_100
403 , a5 out nocopy JTF_NUMBER_TABLE
404 , a6 out nocopy JTF_VARCHAR2_TABLE_300
405 , a7 out nocopy JTF_NUMBER_TABLE
406 , a8 out nocopy JTF_NUMBER_TABLE
407 , a9 out nocopy JTF_NUMBER_TABLE
408 , a10 out nocopy JTF_NUMBER_TABLE
409 , a11 out nocopy JTF_NUMBER_TABLE
410 , a12 out nocopy JTF_NUMBER_TABLE
411 , a13 out nocopy JTF_VARCHAR2_TABLE_100
412 , a14 out nocopy JTF_VARCHAR2_TABLE_100
413 , a15 out nocopy JTF_VARCHAR2_TABLE_200
414 , a16 out nocopy JTF_VARCHAR2_TABLE_200
415 , a17 out nocopy JTF_VARCHAR2_TABLE_200
416 , a18 out nocopy JTF_VARCHAR2_TABLE_200
417 , a19 out nocopy JTF_VARCHAR2_TABLE_200
418 , a20 out nocopy JTF_VARCHAR2_TABLE_200
419 , a21 out nocopy JTF_VARCHAR2_TABLE_200
420 , a22 out nocopy JTF_VARCHAR2_TABLE_200
421 , a23 out nocopy JTF_VARCHAR2_TABLE_200
422 , a24 out nocopy JTF_VARCHAR2_TABLE_200
423 , a25 out nocopy JTF_VARCHAR2_TABLE_200
424 , a26 out nocopy JTF_VARCHAR2_TABLE_200
425 , a27 out nocopy JTF_VARCHAR2_TABLE_200
426 , a28 out nocopy JTF_VARCHAR2_TABLE_200
427 , a29 out nocopy JTF_VARCHAR2_TABLE_200
428 , a30 out nocopy JTF_NUMBER_TABLE
429 , a31 out nocopy JTF_NUMBER_TABLE
430 ) as
431 ddindx binary_integer; indx binary_integer;
432 begin
433 if t is null or t.count = 0 then
434 a0 := JTF_NUMBER_TABLE();
435 a1 := JTF_VARCHAR2_TABLE_100();
436 a2 := JTF_NUMBER_TABLE();
437 a3 := JTF_NUMBER_TABLE();
438 a4 := JTF_VARCHAR2_TABLE_100();
439 a5 := JTF_NUMBER_TABLE();
440 a6 := JTF_VARCHAR2_TABLE_300();
441 a7 := JTF_NUMBER_TABLE();
442 a8 := JTF_NUMBER_TABLE();
443 a9 := JTF_NUMBER_TABLE();
444 a10 := JTF_NUMBER_TABLE();
445 a11 := JTF_NUMBER_TABLE();
446 a12 := JTF_NUMBER_TABLE();
447 a13 := JTF_VARCHAR2_TABLE_100();
448 a14 := JTF_VARCHAR2_TABLE_100();
449 a15 := JTF_VARCHAR2_TABLE_200();
450 a16 := JTF_VARCHAR2_TABLE_200();
451 a17 := JTF_VARCHAR2_TABLE_200();
452 a18 := JTF_VARCHAR2_TABLE_200();
453 a19 := JTF_VARCHAR2_TABLE_200();
454 a20 := JTF_VARCHAR2_TABLE_200();
455 a21 := JTF_VARCHAR2_TABLE_200();
456 a22 := JTF_VARCHAR2_TABLE_200();
457 a23 := JTF_VARCHAR2_TABLE_200();
458 a24 := JTF_VARCHAR2_TABLE_200();
459 a25 := JTF_VARCHAR2_TABLE_200();
460 a26 := JTF_VARCHAR2_TABLE_200();
461 a27 := JTF_VARCHAR2_TABLE_200();
462 a28 := JTF_VARCHAR2_TABLE_200();
463 a29 := JTF_VARCHAR2_TABLE_200();
464 a30 := JTF_NUMBER_TABLE();
465 a31 := JTF_NUMBER_TABLE();
466 else
467 a0 := JTF_NUMBER_TABLE();
468 a1 := JTF_VARCHAR2_TABLE_100();
469 a2 := JTF_NUMBER_TABLE();
470 a3 := JTF_NUMBER_TABLE();
471 a4 := JTF_VARCHAR2_TABLE_100();
472 a5 := JTF_NUMBER_TABLE();
473 a6 := JTF_VARCHAR2_TABLE_300();
474 a7 := JTF_NUMBER_TABLE();
475 a8 := JTF_NUMBER_TABLE();
476 a9 := JTF_NUMBER_TABLE();
477 a10 := JTF_NUMBER_TABLE();
478 a11 := JTF_NUMBER_TABLE();
479 a12 := JTF_NUMBER_TABLE();
480 a13 := JTF_VARCHAR2_TABLE_100();
481 a14 := JTF_VARCHAR2_TABLE_100();
482 a15 := JTF_VARCHAR2_TABLE_200();
483 a16 := JTF_VARCHAR2_TABLE_200();
484 a17 := JTF_VARCHAR2_TABLE_200();
485 a18 := JTF_VARCHAR2_TABLE_200();
486 a19 := JTF_VARCHAR2_TABLE_200();
487 a20 := JTF_VARCHAR2_TABLE_200();
488 a21 := JTF_VARCHAR2_TABLE_200();
489 a22 := JTF_VARCHAR2_TABLE_200();
490 a23 := JTF_VARCHAR2_TABLE_200();
491 a24 := JTF_VARCHAR2_TABLE_200();
492 a25 := JTF_VARCHAR2_TABLE_200();
493 a26 := JTF_VARCHAR2_TABLE_200();
494 a27 := JTF_VARCHAR2_TABLE_200();
495 a28 := JTF_VARCHAR2_TABLE_200();
496 a29 := JTF_VARCHAR2_TABLE_200();
497 a30 := JTF_NUMBER_TABLE();
498 a31 := JTF_NUMBER_TABLE();
499 if t.count > 0 then
500 a0.extend(t.count);
501 a1.extend(t.count);
502 a2.extend(t.count);
503 a3.extend(t.count);
504 a4.extend(t.count);
505 a5.extend(t.count);
506 a6.extend(t.count);
507 a7.extend(t.count);
508 a8.extend(t.count);
509 a9.extend(t.count);
510 a10.extend(t.count);
511 a11.extend(t.count);
512 a12.extend(t.count);
513 a13.extend(t.count);
514 a14.extend(t.count);
515 a15.extend(t.count);
516 a16.extend(t.count);
517 a17.extend(t.count);
518 a18.extend(t.count);
519 a19.extend(t.count);
520 a20.extend(t.count);
521 a21.extend(t.count);
522 a22.extend(t.count);
523 a23.extend(t.count);
524 a24.extend(t.count);
525 a25.extend(t.count);
526 a26.extend(t.count);
527 a27.extend(t.count);
528 a28.extend(t.count);
529 a29.extend(t.count);
530 a30.extend(t.count);
531 a31.extend(t.count);
532 ddindx := t.first;
533 indx := 1;
534 while true loop
535 a0(indx) := rosetta_g_miss_num_map(t(ddindx).interest_code_id);
536 a1(indx) := t(ddindx).code;
537 a2(indx) := rosetta_g_miss_num_map(t(ddindx).interest_type_id);
538 a3(indx) := rosetta_g_miss_num_map(t(ddindx).revenue_class_id);
539 a4(indx) := t(ddindx).enabled_flag;
540 a5(indx) := rosetta_g_miss_num_map(t(ddindx).parent_interest_code_id);
541 a6(indx) := t(ddindx).description;
542 a7(indx) := rosetta_g_miss_num_map(t(ddindx).category_id);
543 a8(indx) := rosetta_g_miss_num_map(t(ddindx).category_set_id);
544 a9(indx) := rosetta_g_miss_num_map(t(ddindx).org_id);
545 a10(indx) := rosetta_g_miss_num_map(t(ddindx).pf_item_id);
546 a11(indx) := rosetta_g_miss_num_map(t(ddindx).pf_organization_id);
547 a12(indx) := rosetta_g_miss_num_map(t(ddindx).price);
548 a13(indx) := t(ddindx).currency_code;
549 a14(indx) := t(ddindx).attribute_category;
550 a15(indx) := t(ddindx).attribute1;
551 a16(indx) := t(ddindx).attribute2;
552 a17(indx) := t(ddindx).attribute3;
553 a18(indx) := t(ddindx).attribute4;
554 a19(indx) := t(ddindx).attribute5;
555 a20(indx) := t(ddindx).attribute6;
556 a21(indx) := t(ddindx).attribute7;
557 a22(indx) := t(ddindx).attribute8;
558 a23(indx) := t(ddindx).attribute9;
559 a24(indx) := t(ddindx).attribute10;
560 a25(indx) := t(ddindx).attribute11;
561 a26(indx) := t(ddindx).attribute12;
562 a27(indx) := t(ddindx).attribute13;
563 a28(indx) := t(ddindx).attribute14;
564 a29(indx) := t(ddindx).attribute15;
565 a30(indx) := rosetta_g_miss_num_map(t(ddindx).product_category_id);
566 a31(indx) := rosetta_g_miss_num_map(t(ddindx).product_cat_set_id);
567 indx := indx+1;
568 if t.last =ddindx
569 then exit;
570 end if;
571 ddindx := t.next(ddindx);
572 end loop;
573 end if;
574 end if;
575 end rosetta_table_copy_out_p5;
576
577 procedure create_interest(p_api_version_number NUMBER
578 , p_init_msg_list VARCHAR2
579 , p_commit VARCHAR2
580 , p_validation_level NUMBER
581 , p_customer_id NUMBER
582 , p_address_id NUMBER
583 , p_contact_id NUMBER
584 , p_lead_id NUMBER
585 , p_interest_use_code VARCHAR2
586 , p_check_access_flag VARCHAR2
587 , p_admin_flag VARCHAR2
588 , p_admin_group_id NUMBER
589 , p_identity_salesforce_id NUMBER
590 , p_return_status out nocopy VARCHAR2
591 , p_msg_count out nocopy NUMBER
592 , p_msg_data out nocopy VARCHAR2
593 , p_interest_out_id out nocopy NUMBER
594 , p4_a0 NUMBER := 0-1962.0724
595 , p4_a1 NUMBER := 0-1962.0724
596 , p4_a2 NUMBER := 0-1962.0724
597 , p4_a3 NUMBER := 0-1962.0724
598 , p4_a4 NUMBER := 0-1962.0724
599 , p4_a5 NUMBER := 0-1962.0724
600 , p4_a6 DATE := fnd_api.g_miss_date
601 , p4_a7 NUMBER := 0-1962.0724
602 , p4_a8 DATE := fnd_api.g_miss_date
603 , p4_a9 NUMBER := 0-1962.0724
604 , p4_a10 NUMBER := 0-1962.0724
605 , p4_a11 VARCHAR2 := fnd_api.g_miss_char
606 , p4_a12 NUMBER := 0-1962.0724
607 , p4_a13 VARCHAR2 := fnd_api.g_miss_char
608 , p4_a14 NUMBER := 0-1962.0724
609 , p4_a15 VARCHAR2 := fnd_api.g_miss_char
610 , p4_a16 VARCHAR2 := fnd_api.g_miss_char
611 , p4_a17 VARCHAR2 := fnd_api.g_miss_char
612 , p4_a18 VARCHAR2 := fnd_api.g_miss_char
613 , p4_a19 VARCHAR2 := fnd_api.g_miss_char
614 , p4_a20 VARCHAR2 := fnd_api.g_miss_char
615 , p4_a21 VARCHAR2 := fnd_api.g_miss_char
616 , p4_a22 VARCHAR2 := fnd_api.g_miss_char
617 , p4_a23 VARCHAR2 := fnd_api.g_miss_char
618 , p4_a24 VARCHAR2 := fnd_api.g_miss_char
619 , p4_a25 VARCHAR2 := fnd_api.g_miss_char
620 , p4_a26 VARCHAR2 := fnd_api.g_miss_char
621 , p4_a27 VARCHAR2 := fnd_api.g_miss_char
622 , p4_a28 VARCHAR2 := fnd_api.g_miss_char
623 , p4_a29 VARCHAR2 := fnd_api.g_miss_char
624 , p4_a30 VARCHAR2 := fnd_api.g_miss_char
625 , p4_a31 VARCHAR2 := fnd_api.g_miss_char
626 , p4_a32 VARCHAR2 := fnd_api.g_miss_char
627 , p4_a33 VARCHAR2 := fnd_api.g_miss_char
628 , p4_a34 VARCHAR2 := fnd_api.g_miss_char
629 , p4_a35 NUMBER := 0-1962.0724
630 , p4_a36 NUMBER := 0-1962.0724
631 , p14_a0 VARCHAR2 := fnd_api.g_miss_char
632 , p14_a1 VARCHAR2 := fnd_api.g_miss_char
633 , p14_a2 VARCHAR2 := fnd_api.g_miss_char
634 , p14_a3 VARCHAR2 := fnd_api.g_miss_char
635 , p14_a4 VARCHAR2 := fnd_api.g_miss_char
636 )
637
638 as
639 ddp_interest_rec as_interest_pub.interest_rec_type;
640 ddp_access_profile_rec as_access_pub.access_profile_rec_type;
641 ddindx binary_integer; indx binary_integer;
642 begin
643
644 -- copy data to the local IN or IN-OUT args, if any
645
646
647
648
649 ddp_interest_rec.interest_id := rosetta_g_miss_num_map(p4_a0);
650 ddp_interest_rec.customer_id := rosetta_g_miss_num_map(p4_a1);
651 ddp_interest_rec.address_id := rosetta_g_miss_num_map(p4_a2);
652 ddp_interest_rec.contact_id := rosetta_g_miss_num_map(p4_a3);
653 ddp_interest_rec.lead_id := rosetta_g_miss_num_map(p4_a4);
654 ddp_interest_rec.interest_type_id := rosetta_g_miss_num_map(p4_a5);
655 ddp_interest_rec.last_update_date := rosetta_g_miss_date_in_map(p4_a6);
656 ddp_interest_rec.last_updated_by := rosetta_g_miss_num_map(p4_a7);
657 ddp_interest_rec.creation_date := rosetta_g_miss_date_in_map(p4_a8);
658 ddp_interest_rec.created_by := rosetta_g_miss_num_map(p4_a9);
659 ddp_interest_rec.last_update_login := rosetta_g_miss_num_map(p4_a10);
660 ddp_interest_rec.interest_type := p4_a11;
661 ddp_interest_rec.primary_interest_code_id := rosetta_g_miss_num_map(p4_a12);
662 ddp_interest_rec.primary_interest_code := p4_a13;
663 ddp_interest_rec.secondary_interest_code_id := rosetta_g_miss_num_map(p4_a14);
664 ddp_interest_rec.secondary_interest_code := p4_a15;
665 ddp_interest_rec.status_code := p4_a16;
666 ddp_interest_rec.status := p4_a17;
667 ddp_interest_rec.description := p4_a18;
668 ddp_interest_rec.attribute_category := p4_a19;
669 ddp_interest_rec.attribute1 := p4_a20;
670 ddp_interest_rec.attribute2 := p4_a21;
671 ddp_interest_rec.attribute3 := p4_a22;
672 ddp_interest_rec.attribute4 := p4_a23;
673 ddp_interest_rec.attribute5 := p4_a24;
674 ddp_interest_rec.attribute6 := p4_a25;
675 ddp_interest_rec.attribute7 := p4_a26;
676 ddp_interest_rec.attribute8 := p4_a27;
677 ddp_interest_rec.attribute9 := p4_a28;
678 ddp_interest_rec.attribute10 := p4_a29;
679 ddp_interest_rec.attribute11 := p4_a30;
680 ddp_interest_rec.attribute12 := p4_a31;
681 ddp_interest_rec.attribute13 := p4_a32;
682 ddp_interest_rec.attribute14 := p4_a33;
683 ddp_interest_rec.attribute15 := p4_a34;
684 ddp_interest_rec.product_category_id := rosetta_g_miss_num_map(p4_a35);
685 ddp_interest_rec.product_cat_set_id := rosetta_g_miss_num_map(p4_a36);
686
687
688
689
690
691
692
693
694
695
696 ddp_access_profile_rec.cust_access_profile_value := p14_a0;
697 ddp_access_profile_rec.lead_access_profile_value := p14_a1;
698 ddp_access_profile_rec.opp_access_profile_value := p14_a2;
699 ddp_access_profile_rec.mgr_update_profile_value := p14_a3;
700 ddp_access_profile_rec.admin_update_profile_value := p14_a4;
701
702
703
704
705
706 -- here's the delegated call to the old PL/SQL routine
707 as_interest_pub.create_interest(p_api_version_number,
708 p_init_msg_list,
709 p_commit,
710 p_validation_level,
711 ddp_interest_rec,
712 p_customer_id,
713 p_address_id,
714 p_contact_id,
715 p_lead_id,
716 p_interest_use_code,
717 p_check_access_flag,
718 p_admin_flag,
719 p_admin_group_id,
720 p_identity_salesforce_id,
721 ddp_access_profile_rec,
722 p_return_status,
723 p_msg_count,
724 p_msg_data,
725 p_interest_out_id);
726
727 -- copy data back from the local variables to OUT or IN-OUT args, if any
728
729
730
731
732
733
734
735
736
737
738
739
740
741
742
743
744
745
746 end;
747
748 procedure update_interest(p_api_version_number NUMBER
749 , p_init_msg_list VARCHAR2
750 , p_commit VARCHAR2
751 , p_validation_level NUMBER
752 , p_identity_salesforce_id NUMBER
753 , p_interest_use_code VARCHAR2
754 , p_check_access_flag VARCHAR2
755 , p_admin_flag VARCHAR2
756 , p_admin_group_id NUMBER
757 , x_return_status out nocopy VARCHAR2
758 , x_msg_count out nocopy NUMBER
759 , x_msg_data out nocopy VARCHAR2
760 , x_interest_id out nocopy NUMBER
761 , p5_a0 NUMBER := 0-1962.0724
762 , p5_a1 NUMBER := 0-1962.0724
763 , p5_a2 NUMBER := 0-1962.0724
764 , p5_a3 NUMBER := 0-1962.0724
765 , p5_a4 NUMBER := 0-1962.0724
766 , p5_a5 NUMBER := 0-1962.0724
767 , p5_a6 DATE := fnd_api.g_miss_date
768 , p5_a7 NUMBER := 0-1962.0724
769 , p5_a8 DATE := fnd_api.g_miss_date
770 , p5_a9 NUMBER := 0-1962.0724
771 , p5_a10 NUMBER := 0-1962.0724
772 , p5_a11 VARCHAR2 := fnd_api.g_miss_char
773 , p5_a12 NUMBER := 0-1962.0724
774 , p5_a13 VARCHAR2 := fnd_api.g_miss_char
775 , p5_a14 NUMBER := 0-1962.0724
776 , p5_a15 VARCHAR2 := fnd_api.g_miss_char
777 , p5_a16 VARCHAR2 := fnd_api.g_miss_char
778 , p5_a17 VARCHAR2 := fnd_api.g_miss_char
779 , p5_a18 VARCHAR2 := fnd_api.g_miss_char
780 , p5_a19 VARCHAR2 := fnd_api.g_miss_char
781 , p5_a20 VARCHAR2 := fnd_api.g_miss_char
782 , p5_a21 VARCHAR2 := fnd_api.g_miss_char
783 , p5_a22 VARCHAR2 := fnd_api.g_miss_char
784 , p5_a23 VARCHAR2 := fnd_api.g_miss_char
785 , p5_a24 VARCHAR2 := fnd_api.g_miss_char
786 , p5_a25 VARCHAR2 := fnd_api.g_miss_char
787 , p5_a26 VARCHAR2 := fnd_api.g_miss_char
788 , p5_a27 VARCHAR2 := fnd_api.g_miss_char
789 , p5_a28 VARCHAR2 := fnd_api.g_miss_char
790 , p5_a29 VARCHAR2 := fnd_api.g_miss_char
791 , p5_a30 VARCHAR2 := fnd_api.g_miss_char
792 , p5_a31 VARCHAR2 := fnd_api.g_miss_char
793 , p5_a32 VARCHAR2 := fnd_api.g_miss_char
794 , p5_a33 VARCHAR2 := fnd_api.g_miss_char
795 , p5_a34 VARCHAR2 := fnd_api.g_miss_char
796 , p5_a35 NUMBER := 0-1962.0724
797 , p5_a36 NUMBER := 0-1962.0724
798 , p10_a0 VARCHAR2 := fnd_api.g_miss_char
799 , p10_a1 VARCHAR2 := fnd_api.g_miss_char
800 , p10_a2 VARCHAR2 := fnd_api.g_miss_char
801 , p10_a3 VARCHAR2 := fnd_api.g_miss_char
802 , p10_a4 VARCHAR2 := fnd_api.g_miss_char
803 )
804
805 as
806 ddp_interest_rec as_interest_pub.interest_rec_type;
807 ddp_access_profile_rec as_access_pub.access_profile_rec_type;
808 ddindx binary_integer; indx binary_integer;
809 begin
810
811 -- copy data to the local IN or IN-OUT args, if any
812
813
814
815
816
817 ddp_interest_rec.interest_id := rosetta_g_miss_num_map(p5_a0);
818 ddp_interest_rec.customer_id := rosetta_g_miss_num_map(p5_a1);
819 ddp_interest_rec.address_id := rosetta_g_miss_num_map(p5_a2);
820 ddp_interest_rec.contact_id := rosetta_g_miss_num_map(p5_a3);
821 ddp_interest_rec.lead_id := rosetta_g_miss_num_map(p5_a4);
822 ddp_interest_rec.interest_type_id := rosetta_g_miss_num_map(p5_a5);
823 ddp_interest_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a6);
824 ddp_interest_rec.last_updated_by := rosetta_g_miss_num_map(p5_a7);
825 ddp_interest_rec.creation_date := rosetta_g_miss_date_in_map(p5_a8);
826 ddp_interest_rec.created_by := rosetta_g_miss_num_map(p5_a9);
827 ddp_interest_rec.last_update_login := rosetta_g_miss_num_map(p5_a10);
828 ddp_interest_rec.interest_type := p5_a11;
829 ddp_interest_rec.primary_interest_code_id := rosetta_g_miss_num_map(p5_a12);
830 ddp_interest_rec.primary_interest_code := p5_a13;
831 ddp_interest_rec.secondary_interest_code_id := rosetta_g_miss_num_map(p5_a14);
832 ddp_interest_rec.secondary_interest_code := p5_a15;
833 ddp_interest_rec.status_code := p5_a16;
834 ddp_interest_rec.status := p5_a17;
835 ddp_interest_rec.description := p5_a18;
836 ddp_interest_rec.attribute_category := p5_a19;
837 ddp_interest_rec.attribute1 := p5_a20;
838 ddp_interest_rec.attribute2 := p5_a21;
839 ddp_interest_rec.attribute3 := p5_a22;
840 ddp_interest_rec.attribute4 := p5_a23;
841 ddp_interest_rec.attribute5 := p5_a24;
842 ddp_interest_rec.attribute6 := p5_a25;
843 ddp_interest_rec.attribute7 := p5_a26;
844 ddp_interest_rec.attribute8 := p5_a27;
845 ddp_interest_rec.attribute9 := p5_a28;
846 ddp_interest_rec.attribute10 := p5_a29;
847 ddp_interest_rec.attribute11 := p5_a30;
848 ddp_interest_rec.attribute12 := p5_a31;
849 ddp_interest_rec.attribute13 := p5_a32;
850 ddp_interest_rec.attribute14 := p5_a33;
851 ddp_interest_rec.attribute15 := p5_a34;
852 ddp_interest_rec.product_category_id := rosetta_g_miss_num_map(p5_a35);
853 ddp_interest_rec.product_cat_set_id := rosetta_g_miss_num_map(p5_a36);
854
855
856
857
858
859 ddp_access_profile_rec.cust_access_profile_value := p10_a0;
860 ddp_access_profile_rec.lead_access_profile_value := p10_a1;
861 ddp_access_profile_rec.opp_access_profile_value := p10_a2;
862 ddp_access_profile_rec.mgr_update_profile_value := p10_a3;
863 ddp_access_profile_rec.admin_update_profile_value := p10_a4;
864
865
866
867
868
869 -- here's the delegated call to the old PL/SQL routine
870 as_interest_pub.update_interest(p_api_version_number,
871 p_init_msg_list,
872 p_commit,
873 p_validation_level,
874 p_identity_salesforce_id,
875 ddp_interest_rec,
876 p_interest_use_code,
877 p_check_access_flag,
878 p_admin_flag,
879 p_admin_group_id,
880 ddp_access_profile_rec,
881 x_return_status,
882 x_msg_count,
883 x_msg_data,
884 x_interest_id);
885
886 -- copy data back from the local variables to OUT or IN-OUT args, if any
887
888
889
890
891
892
893
894
895
896
897
898
899
900
901 end;
902
903 procedure delete_interest(p_api_version_number NUMBER
904 , p_init_msg_list VARCHAR2
905 , p_commit VARCHAR2
906 , p_validation_level NUMBER
907 , p_identity_salesforce_id NUMBER
908 , p_interest_use_code VARCHAR2
909 , p_check_access_flag VARCHAR2
910 , p_admin_flag VARCHAR2
911 , p_admin_group_id NUMBER
912 , x_return_status out nocopy VARCHAR2
913 , x_msg_count out nocopy NUMBER
914 , x_msg_data out nocopy VARCHAR2
915 , p5_a0 NUMBER := 0-1962.0724
916 , p5_a1 NUMBER := 0-1962.0724
917 , p5_a2 NUMBER := 0-1962.0724
918 , p5_a3 NUMBER := 0-1962.0724
919 , p5_a4 NUMBER := 0-1962.0724
920 , p5_a5 NUMBER := 0-1962.0724
921 , p5_a6 DATE := fnd_api.g_miss_date
922 , p5_a7 NUMBER := 0-1962.0724
923 , p5_a8 DATE := fnd_api.g_miss_date
924 , p5_a9 NUMBER := 0-1962.0724
925 , p5_a10 NUMBER := 0-1962.0724
926 , p5_a11 VARCHAR2 := fnd_api.g_miss_char
927 , p5_a12 NUMBER := 0-1962.0724
928 , p5_a13 VARCHAR2 := fnd_api.g_miss_char
929 , p5_a14 NUMBER := 0-1962.0724
930 , p5_a15 VARCHAR2 := fnd_api.g_miss_char
931 , p5_a16 VARCHAR2 := fnd_api.g_miss_char
932 , p5_a17 VARCHAR2 := fnd_api.g_miss_char
933 , p5_a18 VARCHAR2 := fnd_api.g_miss_char
934 , p5_a19 VARCHAR2 := fnd_api.g_miss_char
935 , p5_a20 VARCHAR2 := fnd_api.g_miss_char
936 , p5_a21 VARCHAR2 := fnd_api.g_miss_char
937 , p5_a22 VARCHAR2 := fnd_api.g_miss_char
938 , p5_a23 VARCHAR2 := fnd_api.g_miss_char
939 , p5_a24 VARCHAR2 := fnd_api.g_miss_char
940 , p5_a25 VARCHAR2 := fnd_api.g_miss_char
941 , p5_a26 VARCHAR2 := fnd_api.g_miss_char
942 , p5_a27 VARCHAR2 := fnd_api.g_miss_char
943 , p5_a28 VARCHAR2 := fnd_api.g_miss_char
944 , p5_a29 VARCHAR2 := fnd_api.g_miss_char
945 , p5_a30 VARCHAR2 := fnd_api.g_miss_char
946 , p5_a31 VARCHAR2 := fnd_api.g_miss_char
947 , p5_a32 VARCHAR2 := fnd_api.g_miss_char
948 , p5_a33 VARCHAR2 := fnd_api.g_miss_char
949 , p5_a34 VARCHAR2 := fnd_api.g_miss_char
950 , p5_a35 NUMBER := 0-1962.0724
951 , p5_a36 NUMBER := 0-1962.0724
952 , p10_a0 VARCHAR2 := fnd_api.g_miss_char
953 , p10_a1 VARCHAR2 := fnd_api.g_miss_char
954 , p10_a2 VARCHAR2 := fnd_api.g_miss_char
955 , p10_a3 VARCHAR2 := fnd_api.g_miss_char
956 , p10_a4 VARCHAR2 := fnd_api.g_miss_char
957 )
958
959 as
960 ddp_interest_rec as_interest_pub.interest_rec_type;
961 ddp_access_profile_rec as_access_pub.access_profile_rec_type;
962 ddindx binary_integer; indx binary_integer;
963 begin
964
965 -- copy data to the local IN or IN-OUT args, if any
966
967
968
969
970
971 ddp_interest_rec.interest_id := rosetta_g_miss_num_map(p5_a0);
972 ddp_interest_rec.customer_id := rosetta_g_miss_num_map(p5_a1);
973 ddp_interest_rec.address_id := rosetta_g_miss_num_map(p5_a2);
974 ddp_interest_rec.contact_id := rosetta_g_miss_num_map(p5_a3);
975 ddp_interest_rec.lead_id := rosetta_g_miss_num_map(p5_a4);
976 ddp_interest_rec.interest_type_id := rosetta_g_miss_num_map(p5_a5);
977 ddp_interest_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a6);
978 ddp_interest_rec.last_updated_by := rosetta_g_miss_num_map(p5_a7);
979 ddp_interest_rec.creation_date := rosetta_g_miss_date_in_map(p5_a8);
980 ddp_interest_rec.created_by := rosetta_g_miss_num_map(p5_a9);
981 ddp_interest_rec.last_update_login := rosetta_g_miss_num_map(p5_a10);
982 ddp_interest_rec.interest_type := p5_a11;
983 ddp_interest_rec.primary_interest_code_id := rosetta_g_miss_num_map(p5_a12);
984 ddp_interest_rec.primary_interest_code := p5_a13;
985 ddp_interest_rec.secondary_interest_code_id := rosetta_g_miss_num_map(p5_a14);
986 ddp_interest_rec.secondary_interest_code := p5_a15;
987 ddp_interest_rec.status_code := p5_a16;
988 ddp_interest_rec.status := p5_a17;
989 ddp_interest_rec.description := p5_a18;
990 ddp_interest_rec.attribute_category := p5_a19;
991 ddp_interest_rec.attribute1 := p5_a20;
992 ddp_interest_rec.attribute2 := p5_a21;
993 ddp_interest_rec.attribute3 := p5_a22;
994 ddp_interest_rec.attribute4 := p5_a23;
995 ddp_interest_rec.attribute5 := p5_a24;
996 ddp_interest_rec.attribute6 := p5_a25;
997 ddp_interest_rec.attribute7 := p5_a26;
998 ddp_interest_rec.attribute8 := p5_a27;
999 ddp_interest_rec.attribute9 := p5_a28;
1000 ddp_interest_rec.attribute10 := p5_a29;
1001 ddp_interest_rec.attribute11 := p5_a30;
1002 ddp_interest_rec.attribute12 := p5_a31;
1003 ddp_interest_rec.attribute13 := p5_a32;
1004 ddp_interest_rec.attribute14 := p5_a33;
1005 ddp_interest_rec.attribute15 := p5_a34;
1006 ddp_interest_rec.product_category_id := rosetta_g_miss_num_map(p5_a35);
1007 ddp_interest_rec.product_cat_set_id := rosetta_g_miss_num_map(p5_a36);
1008
1009
1010
1011
1012
1013 ddp_access_profile_rec.cust_access_profile_value := p10_a0;
1014 ddp_access_profile_rec.lead_access_profile_value := p10_a1;
1015 ddp_access_profile_rec.opp_access_profile_value := p10_a2;
1016 ddp_access_profile_rec.mgr_update_profile_value := p10_a3;
1017 ddp_access_profile_rec.admin_update_profile_value := p10_a4;
1018
1019
1020
1021
1022 -- here's the delegated call to the old PL/SQL routine
1023 as_interest_pub.delete_interest(p_api_version_number,
1024 p_init_msg_list,
1025 p_commit,
1026 p_validation_level,
1027 p_identity_salesforce_id,
1028 ddp_interest_rec,
1029 p_interest_use_code,
1030 p_check_access_flag,
1031 p_admin_flag,
1032 p_admin_group_id,
1033 ddp_access_profile_rec,
1034 x_return_status,
1035 x_msg_count,
1036 x_msg_data);
1037
1038 -- copy data back from the local variables to OUT or IN-OUT args, if any
1039
1040
1041
1042
1043
1044
1045
1046
1047
1048
1049
1050
1051
1052 end;
1053
1054 end as_interest_pub_w;