[Home] [Help]
PACKAGE BODY: APPS.AS_SALES_LEAD_OWNER_W
Source
1 package body as_sales_lead_owner_w as
2 /* $Header: asxwslnb.pls 120.1 2005/06/23 15:45 appldev noship $ */
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_p1(t out nocopy as_sales_lead_owner.lead_owner_rec_tbl_type, a0 JTF_NUMBER_TABLE
23 , a1 JTF_VARCHAR2_TABLE_100
24 , a2 JTF_VARCHAR2_TABLE_100
25 , a3 JTF_VARCHAR2_TABLE_100
26 , a4 JTF_VARCHAR2_TABLE_100
27 , a5 JTF_NUMBER_TABLE
28 , a6 JTF_VARCHAR2_TABLE_100
29 , a7 JTF_VARCHAR2_TABLE_100
30 , a8 JTF_DATE_TABLE
31 , a9 JTF_NUMBER_TABLE
32 , a10 JTF_DATE_TABLE
33 , a11 JTF_NUMBER_TABLE
34 , a12 JTF_NUMBER_TABLE
35 , a13 JTF_NUMBER_TABLE
36 , a14 JTF_NUMBER_TABLE
37 , a15 JTF_NUMBER_TABLE
38 , a16 JTF_NUMBER_TABLE
39 , a17 JTF_DATE_TABLE
40 ) as
41 ddindx binary_integer; indx binary_integer;
42 begin
43 if a0 is not null and a0.count=0 then
44 t := as_sales_lead_owner.lead_owner_rec_tbl_type();
45 elsif a0 is not null and a0.count > 0 then
46 if a0.count > 0 then
47 t := as_sales_lead_owner.lead_owner_rec_tbl_type();
48 t.extend(a0.count);
49 indx := a0.first;
50 ddindx := 1;
51 while true loop
52 t(ddindx).lead_owner_id := rosetta_g_miss_num_map(a0(indx));
53 t(ddindx).category := a1(indx);
54 t(ddindx).country := a2(indx);
55 t(ddindx).from_postal_code := a3(indx);
56 t(ddindx).to_postal_code := a4(indx);
57 t(ddindx).cm_resource_id := rosetta_g_miss_num_map(a5(indx));
58 t(ddindx).referral_type := a6(indx);
59 t(ddindx).owner_flag := a7(indx);
60 t(ddindx).last_update_date := rosetta_g_miss_date_in_map(a8(indx));
61 t(ddindx).last_updated_by := rosetta_g_miss_num_map(a9(indx));
62 t(ddindx).creation_date := rosetta_g_miss_date_in_map(a10(indx));
63 t(ddindx).created_by := rosetta_g_miss_num_map(a11(indx));
64 t(ddindx).last_update_login := rosetta_g_miss_num_map(a12(indx));
65 t(ddindx).object_version_number := rosetta_g_miss_num_map(a13(indx));
66 t(ddindx).request_id := rosetta_g_miss_num_map(a14(indx));
67 t(ddindx).program_application_id := rosetta_g_miss_num_map(a15(indx));
68 t(ddindx).program_id := rosetta_g_miss_num_map(a16(indx));
69 t(ddindx).program_update_date := rosetta_g_miss_date_in_map(a17(indx));
70 ddindx := ddindx+1;
71 if a0.last =indx
72 then exit;
73 end if;
74 indx := a0.next(indx);
75 end loop;
76 end if;
77 end if;
78 end rosetta_table_copy_in_p1;
79 procedure rosetta_table_copy_out_p1(t as_sales_lead_owner.lead_owner_rec_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
80 , a1 out nocopy JTF_VARCHAR2_TABLE_100
81 , a2 out nocopy JTF_VARCHAR2_TABLE_100
82 , a3 out nocopy JTF_VARCHAR2_TABLE_100
83 , a4 out nocopy JTF_VARCHAR2_TABLE_100
84 , a5 out nocopy JTF_NUMBER_TABLE
85 , a6 out nocopy JTF_VARCHAR2_TABLE_100
86 , a7 out nocopy JTF_VARCHAR2_TABLE_100
87 , a8 out nocopy JTF_DATE_TABLE
88 , a9 out nocopy JTF_NUMBER_TABLE
89 , a10 out nocopy JTF_DATE_TABLE
90 , a11 out nocopy JTF_NUMBER_TABLE
91 , a12 out nocopy JTF_NUMBER_TABLE
92 , a13 out nocopy JTF_NUMBER_TABLE
93 , a14 out nocopy JTF_NUMBER_TABLE
94 , a15 out nocopy JTF_NUMBER_TABLE
95 , a16 out nocopy JTF_NUMBER_TABLE
96 , a17 out nocopy JTF_DATE_TABLE
97 ) as
98 ddindx binary_integer; indx binary_integer;
99 begin
100 if t is null then
101 a0 := null;
102 a1 := null;
103 a2 := null;
104 a3 := null;
105 a4 := null;
106 a5 := null;
107 a6 := null;
108 a7 := null;
109 a8 := null;
110 a9 := null;
111 a10 := null;
112 a11 := null;
113 a12 := null;
114 a13 := null;
115 a14 := null;
116 a15 := null;
117 a16 := null;
118 a17 := null;
119 elsif t.count = 0 then
120 a0 := JTF_NUMBER_TABLE();
121 a1 := JTF_VARCHAR2_TABLE_100();
122 a2 := JTF_VARCHAR2_TABLE_100();
123 a3 := JTF_VARCHAR2_TABLE_100();
124 a4 := JTF_VARCHAR2_TABLE_100();
125 a5 := JTF_NUMBER_TABLE();
126 a6 := JTF_VARCHAR2_TABLE_100();
127 a7 := JTF_VARCHAR2_TABLE_100();
128 a8 := JTF_DATE_TABLE();
129 a9 := JTF_NUMBER_TABLE();
130 a10 := JTF_DATE_TABLE();
131 a11 := JTF_NUMBER_TABLE();
132 a12 := JTF_NUMBER_TABLE();
133 a13 := JTF_NUMBER_TABLE();
134 a14 := JTF_NUMBER_TABLE();
135 a15 := JTF_NUMBER_TABLE();
136 a16 := JTF_NUMBER_TABLE();
137 a17 := JTF_DATE_TABLE();
138 else
139 a0 := JTF_NUMBER_TABLE();
140 a1 := JTF_VARCHAR2_TABLE_100();
141 a2 := JTF_VARCHAR2_TABLE_100();
142 a3 := JTF_VARCHAR2_TABLE_100();
143 a4 := JTF_VARCHAR2_TABLE_100();
144 a5 := JTF_NUMBER_TABLE();
145 a6 := JTF_VARCHAR2_TABLE_100();
146 a7 := JTF_VARCHAR2_TABLE_100();
147 a8 := JTF_DATE_TABLE();
148 a9 := JTF_NUMBER_TABLE();
149 a10 := JTF_DATE_TABLE();
150 a11 := JTF_NUMBER_TABLE();
151 a12 := JTF_NUMBER_TABLE();
152 a13 := JTF_NUMBER_TABLE();
153 a14 := JTF_NUMBER_TABLE();
154 a15 := JTF_NUMBER_TABLE();
155 a16 := JTF_NUMBER_TABLE();
156 a17 := JTF_DATE_TABLE();
157 if t.count > 0 then
158 a0.extend(t.count);
159 a1.extend(t.count);
160 a2.extend(t.count);
161 a3.extend(t.count);
162 a4.extend(t.count);
163 a5.extend(t.count);
164 a6.extend(t.count);
165 a7.extend(t.count);
166 a8.extend(t.count);
167 a9.extend(t.count);
168 a10.extend(t.count);
169 a11.extend(t.count);
170 a12.extend(t.count);
171 a13.extend(t.count);
172 a14.extend(t.count);
173 a15.extend(t.count);
174 a16.extend(t.count);
175 a17.extend(t.count);
176 ddindx := t.first;
177 indx := 1;
178 while true loop
179 a0(indx) := rosetta_g_miss_num_map(t(ddindx).lead_owner_id);
180 a1(indx) := t(ddindx).category;
181 a2(indx) := t(ddindx).country;
182 a3(indx) := t(ddindx).from_postal_code;
183 a4(indx) := t(ddindx).to_postal_code;
184 a5(indx) := rosetta_g_miss_num_map(t(ddindx).cm_resource_id);
185 a6(indx) := t(ddindx).referral_type;
186 a7(indx) := t(ddindx).owner_flag;
187 a8(indx) := t(ddindx).last_update_date;
188 a9(indx) := rosetta_g_miss_num_map(t(ddindx).last_updated_by);
189 a10(indx) := t(ddindx).creation_date;
190 a11(indx) := rosetta_g_miss_num_map(t(ddindx).created_by);
191 a12(indx) := rosetta_g_miss_num_map(t(ddindx).last_update_login);
192 a13(indx) := rosetta_g_miss_num_map(t(ddindx).object_version_number);
193 a14(indx) := rosetta_g_miss_num_map(t(ddindx).request_id);
194 a15(indx) := rosetta_g_miss_num_map(t(ddindx).program_application_id);
195 a16(indx) := rosetta_g_miss_num_map(t(ddindx).program_id);
196 a17(indx) := t(ddindx).program_update_date;
197 indx := indx+1;
198 if t.last =ddindx
199 then exit;
200 end if;
201 ddindx := t.next(ddindx);
202 end loop;
203 end if;
204 end if;
205 end rosetta_table_copy_out_p1;
206
207 procedure create_lead_owner(p_api_version NUMBER
208 , p_init_msg_list VARCHAR2
209 , p_commit VARCHAR2
210 , p_validation_level NUMBER
211 , x_return_status out nocopy VARCHAR2
212 , x_msg_count out nocopy NUMBER
213 , x_msg_data out nocopy VARCHAR2
214 , x_lead_owner_id out nocopy NUMBER
215 , p7_a0 NUMBER := 0-1962.0724
216 , p7_a1 VARCHAR2 := fnd_api.g_miss_char
217 , p7_a2 VARCHAR2 := fnd_api.g_miss_char
218 , p7_a3 VARCHAR2 := fnd_api.g_miss_char
219 , p7_a4 VARCHAR2 := fnd_api.g_miss_char
220 , p7_a5 NUMBER := 0-1962.0724
221 , p7_a6 VARCHAR2 := fnd_api.g_miss_char
222 , p7_a7 VARCHAR2 := fnd_api.g_miss_char
223 , p7_a8 DATE := fnd_api.g_miss_date
224 , p7_a9 NUMBER := 0-1962.0724
225 , p7_a10 DATE := fnd_api.g_miss_date
226 , p7_a11 NUMBER := 0-1962.0724
227 , p7_a12 NUMBER := 0-1962.0724
228 , p7_a13 NUMBER := 0-1962.0724
229 , p7_a14 NUMBER := 0-1962.0724
230 , p7_a15 NUMBER := 0-1962.0724
231 , p7_a16 NUMBER := 0-1962.0724
232 , p7_a17 DATE := fnd_api.g_miss_date
233 )
234
235 as
236 ddp_lead_owner_rec as_sales_lead_owner.lead_owner_rec_type;
237 ddindx binary_integer; indx binary_integer;
238 begin
239
240 -- copy data to the local IN or IN-OUT args, if any
241
242
243
244
245
246
247
248 ddp_lead_owner_rec.lead_owner_id := rosetta_g_miss_num_map(p7_a0);
249 ddp_lead_owner_rec.category := p7_a1;
250 ddp_lead_owner_rec.country := p7_a2;
251 ddp_lead_owner_rec.from_postal_code := p7_a3;
252 ddp_lead_owner_rec.to_postal_code := p7_a4;
253 ddp_lead_owner_rec.cm_resource_id := rosetta_g_miss_num_map(p7_a5);
254 ddp_lead_owner_rec.referral_type := p7_a6;
255 ddp_lead_owner_rec.owner_flag := p7_a7;
256 ddp_lead_owner_rec.last_update_date := rosetta_g_miss_date_in_map(p7_a8);
257 ddp_lead_owner_rec.last_updated_by := rosetta_g_miss_num_map(p7_a9);
258 ddp_lead_owner_rec.creation_date := rosetta_g_miss_date_in_map(p7_a10);
259 ddp_lead_owner_rec.created_by := rosetta_g_miss_num_map(p7_a11);
260 ddp_lead_owner_rec.last_update_login := rosetta_g_miss_num_map(p7_a12);
261 ddp_lead_owner_rec.object_version_number := rosetta_g_miss_num_map(p7_a13);
262 ddp_lead_owner_rec.request_id := rosetta_g_miss_num_map(p7_a14);
263 ddp_lead_owner_rec.program_application_id := rosetta_g_miss_num_map(p7_a15);
264 ddp_lead_owner_rec.program_id := rosetta_g_miss_num_map(p7_a16);
265 ddp_lead_owner_rec.program_update_date := rosetta_g_miss_date_in_map(p7_a17);
266
267
268 -- here's the delegated call to the old PL/SQL routine
269 as_sales_lead_owner.create_lead_owner(p_api_version,
270 p_init_msg_list,
271 p_commit,
272 p_validation_level,
273 x_return_status,
274 x_msg_count,
275 x_msg_data,
276 ddp_lead_owner_rec,
277 x_lead_owner_id);
278
279 -- copy data back from the local variables to OUT or IN-OUT args, if any
280
281
282
283
284
285
286
287
288 end;
289
290 procedure update_lead_owner(p_api_version NUMBER
291 , p_init_msg_list VARCHAR2
292 , p_commit VARCHAR2
293 , p_validation_level NUMBER
294 , x_return_status out nocopy VARCHAR2
295 , x_msg_count out nocopy NUMBER
296 , x_msg_data out nocopy VARCHAR2
297 , p7_a0 NUMBER := 0-1962.0724
298 , p7_a1 VARCHAR2 := fnd_api.g_miss_char
299 , p7_a2 VARCHAR2 := fnd_api.g_miss_char
300 , p7_a3 VARCHAR2 := fnd_api.g_miss_char
301 , p7_a4 VARCHAR2 := fnd_api.g_miss_char
302 , p7_a5 NUMBER := 0-1962.0724
303 , p7_a6 VARCHAR2 := fnd_api.g_miss_char
304 , p7_a7 VARCHAR2 := fnd_api.g_miss_char
305 , p7_a8 DATE := fnd_api.g_miss_date
306 , p7_a9 NUMBER := 0-1962.0724
307 , p7_a10 DATE := fnd_api.g_miss_date
308 , p7_a11 NUMBER := 0-1962.0724
309 , p7_a12 NUMBER := 0-1962.0724
310 , p7_a13 NUMBER := 0-1962.0724
311 , p7_a14 NUMBER := 0-1962.0724
312 , p7_a15 NUMBER := 0-1962.0724
313 , p7_a16 NUMBER := 0-1962.0724
314 , p7_a17 DATE := fnd_api.g_miss_date
315 )
316
317 as
318 ddp_lead_owner_rec as_sales_lead_owner.lead_owner_rec_type;
319 ddindx binary_integer; indx binary_integer;
320 begin
321
322 -- copy data to the local IN or IN-OUT args, if any
323
324
325
326
327
328
329
330 ddp_lead_owner_rec.lead_owner_id := rosetta_g_miss_num_map(p7_a0);
331 ddp_lead_owner_rec.category := p7_a1;
332 ddp_lead_owner_rec.country := p7_a2;
333 ddp_lead_owner_rec.from_postal_code := p7_a3;
334 ddp_lead_owner_rec.to_postal_code := p7_a4;
335 ddp_lead_owner_rec.cm_resource_id := rosetta_g_miss_num_map(p7_a5);
336 ddp_lead_owner_rec.referral_type := p7_a6;
337 ddp_lead_owner_rec.owner_flag := p7_a7;
338 ddp_lead_owner_rec.last_update_date := rosetta_g_miss_date_in_map(p7_a8);
339 ddp_lead_owner_rec.last_updated_by := rosetta_g_miss_num_map(p7_a9);
340 ddp_lead_owner_rec.creation_date := rosetta_g_miss_date_in_map(p7_a10);
341 ddp_lead_owner_rec.created_by := rosetta_g_miss_num_map(p7_a11);
342 ddp_lead_owner_rec.last_update_login := rosetta_g_miss_num_map(p7_a12);
343 ddp_lead_owner_rec.object_version_number := rosetta_g_miss_num_map(p7_a13);
344 ddp_lead_owner_rec.request_id := rosetta_g_miss_num_map(p7_a14);
345 ddp_lead_owner_rec.program_application_id := rosetta_g_miss_num_map(p7_a15);
346 ddp_lead_owner_rec.program_id := rosetta_g_miss_num_map(p7_a16);
347 ddp_lead_owner_rec.program_update_date := rosetta_g_miss_date_in_map(p7_a17);
348
349 -- here's the delegated call to the old PL/SQL routine
350 as_sales_lead_owner.update_lead_owner(p_api_version,
351 p_init_msg_list,
352 p_commit,
353 p_validation_level,
354 x_return_status,
355 x_msg_count,
356 x_msg_data,
357 ddp_lead_owner_rec);
358
359 -- copy data back from the local variables to OUT or IN-OUT args, if any
360
361
362
363
364
365
366
367 end;
368
369 procedure get_salesreps(p_api_version NUMBER
370 , p_init_msg_list VARCHAR2
371 , p_commit VARCHAR2
372 , p_validation_level NUMBER
373 , p_sales_lead_id NUMBER
374 , p5_a0 out nocopy JTF_NUMBER_TABLE
375 , p5_a1 out nocopy JTF_VARCHAR2_TABLE_100
376 , p5_a2 out nocopy JTF_VARCHAR2_TABLE_100
377 , p5_a3 out nocopy JTF_VARCHAR2_TABLE_100
378 , p5_a4 out nocopy JTF_VARCHAR2_TABLE_100
379 , p5_a5 out nocopy JTF_NUMBER_TABLE
380 , p5_a6 out nocopy JTF_VARCHAR2_TABLE_100
384 , p5_a10 out nocopy JTF_DATE_TABLE
381 , p5_a7 out nocopy JTF_VARCHAR2_TABLE_100
382 , p5_a8 out nocopy JTF_DATE_TABLE
383 , p5_a9 out nocopy JTF_NUMBER_TABLE
385 , p5_a11 out nocopy JTF_NUMBER_TABLE
386 , p5_a12 out nocopy JTF_NUMBER_TABLE
387 , p5_a13 out nocopy JTF_NUMBER_TABLE
388 , p5_a14 out nocopy JTF_NUMBER_TABLE
389 , p5_a15 out nocopy JTF_NUMBER_TABLE
390 , p5_a16 out nocopy JTF_NUMBER_TABLE
391 , p5_a17 out nocopy JTF_DATE_TABLE
392 , x_return_status out nocopy VARCHAR2
393 , x_msg_count out nocopy NUMBER
394 , x_msg_data out nocopy VARCHAR2
395 )
396
397 as
398 ddx_salesreps_tbl as_sales_lead_owner.lead_owner_rec_tbl_type;
399 ddindx binary_integer; indx binary_integer;
400 begin
401
402 -- copy data to the local IN or IN-OUT args, if any
403
404
405
406
407
408
409
410
411
412 -- here's the delegated call to the old PL/SQL routine
413 as_sales_lead_owner.get_salesreps(p_api_version,
414 p_init_msg_list,
415 p_commit,
416 p_validation_level,
417 p_sales_lead_id,
418 ddx_salesreps_tbl,
419 x_return_status,
420 x_msg_count,
421 x_msg_data);
422
423 -- copy data back from the local variables to OUT or IN-OUT args, if any
424
425
426
427
428
429 as_sales_lead_owner_w.rosetta_table_copy_out_p1(ddx_salesreps_tbl, p5_a0
430 , p5_a1
431 , p5_a2
432 , p5_a3
433 , p5_a4
434 , p5_a5
435 , p5_a6
436 , p5_a7
437 , p5_a8
438 , p5_a9
439 , p5_a10
440 , p5_a11
441 , p5_a12
442 , p5_a13
443 , p5_a14
444 , p5_a15
445 , p5_a16
446 , p5_a17
447 );
448
449
450
451 end;
452
453 end as_sales_lead_owner_w;