[Home] [Help]
PACKAGE BODY: APPS.AS_OPPORTUNITY_PUB_W4
Source
1 package body as_opportunity_pub_w4 as
2 /* $Header: asxwop4b.pls 120.2 2005/08/04 03:06 appldev ship $ */
3 rosetta_g_mistake_date date := to_date('01/01/+4713', 'MM/DD/SYYYY');
4 rosetta_g_miss_date date := to_date('01/01/-4712', 'MM/DD/SYYYY');
5
6 -- this is to workaround the JDBC bug regarding IN DATE of value GMiss
7 function rosetta_g_miss_date_in_map(d date) return date as
8 begin
9 if d = rosetta_g_mistake_date then return fnd_api.g_miss_date; end if;
10 return d;
11 end;
12
13 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 create_contacts(p_api_version_number NUMBER
23 , p_init_msg_list VARCHAR2
24 , p_commit VARCHAR2
25 , p_validation_level NUMBER
26 , p_identity_salesforce_id NUMBER
27 , p5_a0 JTF_DATE_TABLE
28 , p5_a1 JTF_NUMBER_TABLE
29 , p5_a2 JTF_DATE_TABLE
30 , p5_a3 JTF_NUMBER_TABLE
31 , p5_a4 JTF_NUMBER_TABLE
32 , p5_a5 JTF_NUMBER_TABLE
33 , p5_a6 JTF_NUMBER_TABLE
34 , p5_a7 JTF_NUMBER_TABLE
35 , p5_a8 JTF_DATE_TABLE
36 , p5_a9 JTF_NUMBER_TABLE
37 , p5_a10 JTF_NUMBER_TABLE
38 , p5_a11 JTF_NUMBER_TABLE
39 , p5_a12 JTF_NUMBER_TABLE
40 , p5_a13 JTF_NUMBER_TABLE
41 , p5_a14 JTF_VARCHAR2_TABLE_100
42 , p5_a15 JTF_VARCHAR2_TABLE_100
43 , p5_a16 JTF_VARCHAR2_TABLE_100
44 , p5_a17 JTF_VARCHAR2_TABLE_300
45 , p5_a18 JTF_NUMBER_TABLE
46 , p5_a19 JTF_VARCHAR2_TABLE_100
47 , p5_a20 JTF_VARCHAR2_TABLE_100
48 , p5_a21 JTF_VARCHAR2_TABLE_100
49 , p5_a22 JTF_VARCHAR2_TABLE_100
50 , p5_a23 JTF_VARCHAR2_TABLE_100
51 , p5_a24 JTF_NUMBER_TABLE
52 , p5_a25 JTF_VARCHAR2_TABLE_100
53 , p5_a26 JTF_VARCHAR2_TABLE_100
54 , p5_a27 JTF_NUMBER_TABLE
55 , p5_a28 JTF_VARCHAR2_TABLE_100
56 , p5_a29 JTF_VARCHAR2_TABLE_200
57 , p5_a30 JTF_VARCHAR2_TABLE_200
58 , p5_a31 JTF_VARCHAR2_TABLE_200
59 , p5_a32 JTF_VARCHAR2_TABLE_200
60 , p5_a33 JTF_VARCHAR2_TABLE_200
61 , p5_a34 JTF_VARCHAR2_TABLE_200
62 , p5_a35 JTF_VARCHAR2_TABLE_200
63 , p5_a36 JTF_VARCHAR2_TABLE_200
64 , p5_a37 JTF_VARCHAR2_TABLE_200
65 , p5_a38 JTF_VARCHAR2_TABLE_200
66 , p5_a39 JTF_VARCHAR2_TABLE_200
67 , p5_a40 JTF_VARCHAR2_TABLE_200
68 , p5_a41 JTF_VARCHAR2_TABLE_200
69 , p5_a42 JTF_VARCHAR2_TABLE_200
70 , p5_a43 JTF_VARCHAR2_TABLE_200
71 , p_check_access_flag VARCHAR2
72 , p_admin_flag VARCHAR2
73 , p_admin_group_id NUMBER
74 , p_partner_cont_party_id NUMBER
75 , p11_a0 JTF_VARCHAR2_TABLE_100
76 , p11_a1 JTF_VARCHAR2_TABLE_300
77 , p12_a0 out nocopy JTF_NUMBER_TABLE
78 , p12_a1 out nocopy JTF_VARCHAR2_TABLE_100
79 , x_return_status out nocopy VARCHAR2
80 , x_msg_count out nocopy NUMBER
81 , x_msg_data out nocopy VARCHAR2
82 , p6_a0 DATE := fnd_api.g_miss_date
83 , p6_a1 NUMBER := 0-1962.0724
84 , p6_a2 DATE := fnd_api.g_miss_date
85 , p6_a3 NUMBER := 0-1962.0724
86 , p6_a4 NUMBER := 0-1962.0724
87 , p6_a5 NUMBER := 0-1962.0724
88 , p6_a6 NUMBER := 0-1962.0724
89 , p6_a7 NUMBER := 0-1962.0724
90 , p6_a8 DATE := fnd_api.g_miss_date
91 , p6_a9 NUMBER := 0-1962.0724
92 , p6_a10 VARCHAR2 := fnd_api.g_miss_char
93 , p6_a11 VARCHAR2 := fnd_api.g_miss_char
94 , p6_a12 VARCHAR2 := fnd_api.g_miss_char
95 , p6_a13 VARCHAR2 := fnd_api.g_miss_char
96 , p6_a14 VARCHAR2 := fnd_api.g_miss_char
97 , p6_a15 NUMBER := 0-1962.0724
98 , p6_a16 VARCHAR2 := fnd_api.g_miss_char
99 , p6_a17 NUMBER := 0-1962.0724
100 , p6_a18 VARCHAR2 := fnd_api.g_miss_char
101 , p6_a19 VARCHAR2 := fnd_api.g_miss_char
102 , p6_a20 NUMBER := 0-1962.0724
103 , p6_a21 VARCHAR2 := fnd_api.g_miss_char
104 , p6_a22 VARCHAR2 := fnd_api.g_miss_char
105 , p6_a23 VARCHAR2 := fnd_api.g_miss_char
106 , p6_a24 VARCHAR2 := fnd_api.g_miss_char
107 , p6_a25 VARCHAR2 := fnd_api.g_miss_char
108 , p6_a26 VARCHAR2 := fnd_api.g_miss_char
109 , p6_a27 VARCHAR2 := fnd_api.g_miss_char
110 , p6_a28 VARCHAR2 := fnd_api.g_miss_char
111 , p6_a29 NUMBER := 0-1962.0724
112 , p6_a30 VARCHAR2 := fnd_api.g_miss_char
113 , p6_a31 NUMBER := 0-1962.0724
114 , p6_a32 VARCHAR2 := fnd_api.g_miss_char
115 , p6_a33 VARCHAR2 := fnd_api.g_miss_char
116 , p6_a34 NUMBER := 0-1962.0724
117 , p6_a35 NUMBER := 0-1962.0724
118 , p6_a36 VARCHAR2 := fnd_api.g_miss_char
119 , p6_a37 VARCHAR2 := fnd_api.g_miss_char
120 , p6_a38 DATE := fnd_api.g_miss_date
121 , p6_a39 VARCHAR2 := fnd_api.g_miss_char
122 , p6_a40 VARCHAR2 := fnd_api.g_miss_char
123 , p6_a41 VARCHAR2 := fnd_api.g_miss_char
124 , p6_a42 VARCHAR2 := fnd_api.g_miss_char
125 , p6_a43 VARCHAR2 := fnd_api.g_miss_char
126 , p6_a44 NUMBER := 0-1962.0724
127 , p6_a45 VARCHAR2 := fnd_api.g_miss_char
128 , p6_a46 VARCHAR2 := fnd_api.g_miss_char
129 , p6_a47 NUMBER := 0-1962.0724
130 , p6_a48 VARCHAR2 := fnd_api.g_miss_char
131 , p6_a49 NUMBER := 0-1962.0724
132 , p6_a50 NUMBER := 0-1962.0724
133 , p6_a51 NUMBER := 0-1962.0724
134 , p6_a52 VARCHAR2 := fnd_api.g_miss_char
135 , p6_a53 VARCHAR2 := fnd_api.g_miss_char
136 , p6_a54 VARCHAR2 := fnd_api.g_miss_char
137 , p6_a55 NUMBER := 0-1962.0724
138 , p6_a56 NUMBER := 0-1962.0724
139 , p6_a57 VARCHAR2 := fnd_api.g_miss_char
140 , p6_a58 VARCHAR2 := fnd_api.g_miss_char
141 , p6_a59 VARCHAR2 := fnd_api.g_miss_char
142 , p6_a60 VARCHAR2 := fnd_api.g_miss_char
143 , p6_a61 VARCHAR2 := fnd_api.g_miss_char
144 , p6_a62 VARCHAR2 := fnd_api.g_miss_char
145 , p6_a63 NUMBER := 0-1962.0724
146 , p6_a64 VARCHAR2 := fnd_api.g_miss_char
147 , p6_a65 NUMBER := 0-1962.0724
148 , p6_a66 NUMBER := 0-1962.0724
149 , p6_a67 VARCHAR2 := fnd_api.g_miss_char
150 , p6_a68 NUMBER := 0-1962.0724
151 , p6_a69 NUMBER := 0-1962.0724
152 , p6_a70 NUMBER := 0-1962.0724
153 , p6_a71 VARCHAR2 := fnd_api.g_miss_char
154 , p6_a72 VARCHAR2 := fnd_api.g_miss_char
155 , p6_a73 DATE := fnd_api.g_miss_date
156 , p6_a74 VARCHAR2 := fnd_api.g_miss_char
157 , p6_a75 VARCHAR2 := fnd_api.g_miss_char
158 , p6_a76 VARCHAR2 := fnd_api.g_miss_char
159 , p6_a77 VARCHAR2 := fnd_api.g_miss_char
160 , p6_a78 VARCHAR2 := fnd_api.g_miss_char
161 , p6_a79 VARCHAR2 := fnd_api.g_miss_char
162 , p6_a80 NUMBER := 0-1962.0724
163 , p6_a81 VARCHAR2 := fnd_api.g_miss_char
164 , p6_a82 VARCHAR2 := fnd_api.g_miss_char
165 , p6_a83 VARCHAR2 := fnd_api.g_miss_char
166 , p6_a84 VARCHAR2 := fnd_api.g_miss_char
167 , p6_a85 VARCHAR2 := fnd_api.g_miss_char
168 , p6_a86 VARCHAR2 := fnd_api.g_miss_char
169 , p6_a87 VARCHAR2 := fnd_api.g_miss_char
170 , p6_a88 VARCHAR2 := fnd_api.g_miss_char
171 , p6_a89 VARCHAR2 := fnd_api.g_miss_char
172 , p6_a90 VARCHAR2 := fnd_api.g_miss_char
173 , p6_a91 VARCHAR2 := fnd_api.g_miss_char
174 , p6_a92 VARCHAR2 := fnd_api.g_miss_char
175 , p6_a93 VARCHAR2 := fnd_api.g_miss_char
176 , p6_a94 VARCHAR2 := fnd_api.g_miss_char
177 , p6_a95 VARCHAR2 := fnd_api.g_miss_char
178 , p6_a96 VARCHAR2 := fnd_api.g_miss_char
179 , p6_a97 VARCHAR2 := fnd_api.g_miss_char
180 , p6_a98 VARCHAR2 := fnd_api.g_miss_char
181 , p6_a99 NUMBER := 0-1962.0724
182 )
183
184 as
185 ddp_contact_tbl as_opportunity_pub.contact_tbl_type;
186 ddp_header_rec as_opportunity_pub.header_rec_type;
187 ddp_profile_tbl as_utility_pub.profile_tbl_type;
188 ddx_contact_out_tbl as_opportunity_pub.contact_out_tbl_type;
189 ddindx binary_integer; indx binary_integer;
190 begin
191
192 -- copy data to the local IN or IN-OUT args, if any
193
194
195
196
197
198 as_opportunity_pub_w.rosetta_table_copy_in_p38(ddp_contact_tbl, p5_a0
199 , p5_a1
200 , p5_a2
201 , p5_a3
202 , p5_a4
203 , p5_a5
204 , p5_a6
205 , p5_a7
206 , p5_a8
207 , p5_a9
208 , p5_a10
209 , p5_a11
210 , p5_a12
211 , p5_a13
212 , p5_a14
213 , p5_a15
214 , p5_a16
215 , p5_a17
216 , p5_a18
217 , p5_a19
218 , p5_a20
219 , p5_a21
220 , p5_a22
221 , p5_a23
222 , p5_a24
223 , p5_a25
224 , p5_a26
225 , p5_a27
226 , p5_a28
227 , p5_a29
228 , p5_a30
229 , p5_a31
230 , p5_a32
231 , p5_a33
232 , p5_a34
233 , p5_a35
234 , p5_a36
235 , p5_a37
236 , p5_a38
237 , p5_a39
238 , p5_a40
239 , p5_a41
240 , p5_a42
241 , p5_a43
242 );
243
244 ddp_header_rec.last_update_date := rosetta_g_miss_date_in_map(p6_a0);
245 ddp_header_rec.last_updated_by := rosetta_g_miss_num_map(p6_a1);
246 ddp_header_rec.creation_date := rosetta_g_miss_date_in_map(p6_a2);
247 ddp_header_rec.created_by := rosetta_g_miss_num_map(p6_a3);
248 ddp_header_rec.last_update_login := rosetta_g_miss_num_map(p6_a4);
249 ddp_header_rec.request_id := rosetta_g_miss_num_map(p6_a5);
250 ddp_header_rec.program_application_id := rosetta_g_miss_num_map(p6_a6);
251 ddp_header_rec.program_id := rosetta_g_miss_num_map(p6_a7);
252 ddp_header_rec.program_update_date := rosetta_g_miss_date_in_map(p6_a8);
253 ddp_header_rec.lead_id := rosetta_g_miss_num_map(p6_a9);
254 ddp_header_rec.lead_number := p6_a10;
255 ddp_header_rec.orig_system_reference := p6_a11;
256 ddp_header_rec.lead_source_code := p6_a12;
257 ddp_header_rec.lead_source := p6_a13;
258 ddp_header_rec.description := p6_a14;
259 ddp_header_rec.source_promotion_id := rosetta_g_miss_num_map(p6_a15);
260 ddp_header_rec.source_promotion_code := p6_a16;
261 ddp_header_rec.customer_id := rosetta_g_miss_num_map(p6_a17);
262 ddp_header_rec.customer_name := p6_a18;
263 ddp_header_rec.customer_name_phonetic := p6_a19;
264 ddp_header_rec.address_id := rosetta_g_miss_num_map(p6_a20);
265 ddp_header_rec.address := p6_a21;
266 ddp_header_rec.address2 := p6_a22;
267 ddp_header_rec.address3 := p6_a23;
268 ddp_header_rec.address4 := p6_a24;
269 ddp_header_rec.city := p6_a25;
270 ddp_header_rec.state := p6_a26;
271 ddp_header_rec.country := p6_a27;
272 ddp_header_rec.province := p6_a28;
273 ddp_header_rec.sales_stage_id := rosetta_g_miss_num_map(p6_a29);
274 ddp_header_rec.sales_stage := p6_a30;
275 ddp_header_rec.win_probability := rosetta_g_miss_num_map(p6_a31);
276 ddp_header_rec.status_code := p6_a32;
277 ddp_header_rec.status := p6_a33;
278 ddp_header_rec.total_amount := rosetta_g_miss_num_map(p6_a34);
279 ddp_header_rec.converted_total_amount := rosetta_g_miss_num_map(p6_a35);
280 ddp_header_rec.channel_code := p6_a36;
281 ddp_header_rec.channel := p6_a37;
282 ddp_header_rec.decision_date := rosetta_g_miss_date_in_map(p6_a38);
283 ddp_header_rec.currency_code := p6_a39;
284 ddp_header_rec.to_currency_code := p6_a40;
285 ddp_header_rec.close_reason_code := p6_a41;
286 ddp_header_rec.close_reason := p6_a42;
287 ddp_header_rec.close_competitor_code := p6_a43;
288 ddp_header_rec.close_competitor_id := rosetta_g_miss_num_map(p6_a44);
289 ddp_header_rec.close_competitor := p6_a45;
290 ddp_header_rec.close_comment := p6_a46;
291 ddp_header_rec.end_user_customer_id := rosetta_g_miss_num_map(p6_a47);
292 ddp_header_rec.end_user_customer_name := p6_a48;
293 ddp_header_rec.end_user_address_id := rosetta_g_miss_num_map(p6_a49);
294 ddp_header_rec.owner_salesforce_id := rosetta_g_miss_num_map(p6_a50);
295 ddp_header_rec.owner_sales_group_id := rosetta_g_miss_num_map(p6_a51);
296 ddp_header_rec.parent_project := p6_a52;
297 ddp_header_rec.parent_project_code := p6_a53;
298 ddp_header_rec.updateable_flag := p6_a54;
299 ddp_header_rec.price_list_id := rosetta_g_miss_num_map(p6_a55);
300 ddp_header_rec.initiating_contact_id := rosetta_g_miss_num_map(p6_a56);
301 ddp_header_rec.rank := p6_a57;
302 ddp_header_rec.member_access := p6_a58;
303 ddp_header_rec.member_role := p6_a59;
304 ddp_header_rec.deleted_flag := p6_a60;
305 ddp_header_rec.auto_assignment_type := p6_a61;
306 ddp_header_rec.prm_assignment_type := p6_a62;
307 ddp_header_rec.customer_budget := rosetta_g_miss_num_map(p6_a63);
308 ddp_header_rec.methodology_code := p6_a64;
309 ddp_header_rec.sales_methodology_id := rosetta_g_miss_num_map(p6_a65);
310 ddp_header_rec.original_lead_id := rosetta_g_miss_num_map(p6_a66);
311 ddp_header_rec.decision_timeframe_code := p6_a67;
312 ddp_header_rec.incumbent_partner_resource_id := rosetta_g_miss_num_map(p6_a68);
313 ddp_header_rec.incumbent_partner_party_id := rosetta_g_miss_num_map(p6_a69);
314 ddp_header_rec.offer_id := rosetta_g_miss_num_map(p6_a70);
315 ddp_header_rec.vehicle_response_code := p6_a71;
316 ddp_header_rec.budget_status_code := p6_a72;
317 ddp_header_rec.followup_date := rosetta_g_miss_date_in_map(p6_a73);
318 ddp_header_rec.no_opp_allowed_flag := p6_a74;
319 ddp_header_rec.delete_allowed_flag := p6_a75;
320 ddp_header_rec.prm_exec_sponsor_flag := p6_a76;
321 ddp_header_rec.prm_prj_lead_in_place_flag := p6_a77;
322 ddp_header_rec.prm_ind_classification_code := p6_a78;
323 ddp_header_rec.prm_lead_type := p6_a79;
324 ddp_header_rec.org_id := rosetta_g_miss_num_map(p6_a80);
325 ddp_header_rec.freeze_flag := p6_a81;
326 ddp_header_rec.attribute_category := p6_a82;
327 ddp_header_rec.attribute1 := p6_a83;
328 ddp_header_rec.attribute2 := p6_a84;
329 ddp_header_rec.attribute3 := p6_a85;
330 ddp_header_rec.attribute4 := p6_a86;
331 ddp_header_rec.attribute5 := p6_a87;
332 ddp_header_rec.attribute6 := p6_a88;
333 ddp_header_rec.attribute7 := p6_a89;
334 ddp_header_rec.attribute8 := p6_a90;
335 ddp_header_rec.attribute9 := p6_a91;
336 ddp_header_rec.attribute10 := p6_a92;
337 ddp_header_rec.attribute11 := p6_a93;
338 ddp_header_rec.attribute12 := p6_a94;
339 ddp_header_rec.attribute13 := p6_a95;
340 ddp_header_rec.attribute14 := p6_a96;
341 ddp_header_rec.attribute15 := p6_a97;
342 ddp_header_rec.prm_referral_code := p6_a98;
343 ddp_header_rec.total_revenue_opp_forecast_amt := rosetta_g_miss_num_map(p6_a99);
344
345
346
347
348
349 as_utility_pub_w.rosetta_table_copy_in_p6(ddp_profile_tbl, p11_a0
350 , p11_a1
351 );
352
353
354
355
356
357 -- here's the delegated call to the old PL/SQL routine
358 as_opportunity_pub.create_contacts(p_api_version_number,
359 p_init_msg_list,
360 p_commit,
361 p_validation_level,
362 p_identity_salesforce_id,
363 ddp_contact_tbl,
364 ddp_header_rec,
365 p_check_access_flag,
366 p_admin_flag,
367 p_admin_group_id,
368 p_partner_cont_party_id,
369 ddp_profile_tbl,
370 ddx_contact_out_tbl,
371 x_return_status,
372 x_msg_count,
373 x_msg_data);
377
374
375 -- copy data back from the local variables to OUT or IN-OUT args, if any
376
378
379
380
381
382
383
384
385
386
387
388 as_opportunity_pub_w.rosetta_table_copy_out_p41(ddx_contact_out_tbl, p12_a0
389 , p12_a1
390 );
391
392
393
394 end;
395
396 procedure update_contacts(p_api_version_number NUMBER
397 , p_init_msg_list VARCHAR2
398 , p_commit VARCHAR2
399 , p_validation_level NUMBER
400 , p_identity_salesforce_id NUMBER
401 , p5_a0 JTF_DATE_TABLE
402 , p5_a1 JTF_NUMBER_TABLE
403 , p5_a2 JTF_DATE_TABLE
404 , p5_a3 JTF_NUMBER_TABLE
405 , p5_a4 JTF_NUMBER_TABLE
406 , p5_a5 JTF_NUMBER_TABLE
407 , p5_a6 JTF_NUMBER_TABLE
408 , p5_a7 JTF_NUMBER_TABLE
409 , p5_a8 JTF_DATE_TABLE
410 , p5_a9 JTF_NUMBER_TABLE
411 , p5_a10 JTF_NUMBER_TABLE
412 , p5_a11 JTF_NUMBER_TABLE
413 , p5_a12 JTF_NUMBER_TABLE
414 , p5_a13 JTF_NUMBER_TABLE
415 , p5_a14 JTF_VARCHAR2_TABLE_100
416 , p5_a15 JTF_VARCHAR2_TABLE_100
417 , p5_a16 JTF_VARCHAR2_TABLE_100
418 , p5_a17 JTF_VARCHAR2_TABLE_300
419 , p5_a18 JTF_NUMBER_TABLE
420 , p5_a19 JTF_VARCHAR2_TABLE_100
421 , p5_a20 JTF_VARCHAR2_TABLE_100
422 , p5_a21 JTF_VARCHAR2_TABLE_100
423 , p5_a22 JTF_VARCHAR2_TABLE_100
424 , p5_a23 JTF_VARCHAR2_TABLE_100
425 , p5_a24 JTF_NUMBER_TABLE
426 , p5_a25 JTF_VARCHAR2_TABLE_100
427 , p5_a26 JTF_VARCHAR2_TABLE_100
428 , p5_a27 JTF_NUMBER_TABLE
429 , p5_a28 JTF_VARCHAR2_TABLE_100
430 , p5_a29 JTF_VARCHAR2_TABLE_200
431 , p5_a30 JTF_VARCHAR2_TABLE_200
432 , p5_a31 JTF_VARCHAR2_TABLE_200
433 , p5_a32 JTF_VARCHAR2_TABLE_200
434 , p5_a33 JTF_VARCHAR2_TABLE_200
435 , p5_a34 JTF_VARCHAR2_TABLE_200
436 , p5_a35 JTF_VARCHAR2_TABLE_200
437 , p5_a36 JTF_VARCHAR2_TABLE_200
438 , p5_a37 JTF_VARCHAR2_TABLE_200
439 , p5_a38 JTF_VARCHAR2_TABLE_200
440 , p5_a39 JTF_VARCHAR2_TABLE_200
441 , p5_a40 JTF_VARCHAR2_TABLE_200
442 , p5_a41 JTF_VARCHAR2_TABLE_200
443 , p5_a42 JTF_VARCHAR2_TABLE_200
444 , p5_a43 JTF_VARCHAR2_TABLE_200
445 , p_check_access_flag VARCHAR2
446 , p_admin_flag VARCHAR2
447 , p_admin_group_id NUMBER
448 , p_partner_cont_party_id NUMBER
449 , p10_a0 JTF_VARCHAR2_TABLE_100
450 , p10_a1 JTF_VARCHAR2_TABLE_300
451 , p11_a0 out nocopy JTF_NUMBER_TABLE
452 , p11_a1 out nocopy JTF_VARCHAR2_TABLE_100
453 , x_return_status out nocopy VARCHAR2
454 , x_msg_count out nocopy NUMBER
455 , x_msg_data out nocopy VARCHAR2
456 )
457
458 as
459 ddp_contact_tbl as_opportunity_pub.contact_tbl_type;
460 ddp_profile_tbl as_utility_pub.profile_tbl_type;
461 ddx_contact_out_tbl as_opportunity_pub.contact_out_tbl_type;
462 ddindx binary_integer; indx binary_integer;
463 begin
464
465 -- copy data to the local IN or IN-OUT args, if any
466
467
468
469
470
471 as_opportunity_pub_w.rosetta_table_copy_in_p38(ddp_contact_tbl, p5_a0
472 , p5_a1
473 , p5_a2
474 , p5_a3
475 , p5_a4
476 , p5_a5
477 , p5_a6
478 , p5_a7
479 , p5_a8
480 , p5_a9
481 , p5_a10
482 , p5_a11
483 , p5_a12
484 , p5_a13
485 , p5_a14
486 , p5_a15
487 , p5_a16
488 , p5_a17
489 , p5_a18
490 , p5_a19
491 , p5_a20
492 , p5_a21
493 , p5_a22
494 , p5_a23
495 , p5_a24
496 , p5_a25
497 , p5_a26
498 , p5_a27
499 , p5_a28
500 , p5_a29
501 , p5_a30
502 , p5_a31
503 , p5_a32
504 , p5_a33
505 , p5_a34
506 , p5_a35
507 , p5_a36
508 , p5_a37
509 , p5_a38
510 , p5_a39
511 , p5_a40
512 , p5_a41
513 , p5_a42
514 , p5_a43
515 );
516
517
518
519
520
521 as_utility_pub_w.rosetta_table_copy_in_p6(ddp_profile_tbl, p10_a0
522 , p10_a1
523 );
524
525
526
527
528
529 -- here's the delegated call to the old PL/SQL routine
530 as_opportunity_pub.update_contacts(p_api_version_number,
531 p_init_msg_list,
532 p_commit,
533 p_validation_level,
534 p_identity_salesforce_id,
535 ddp_contact_tbl,
536 p_check_access_flag,
537 p_admin_flag,
538 p_admin_group_id,
539 p_partner_cont_party_id,
540 ddp_profile_tbl,
541 ddx_contact_out_tbl,
542 x_return_status,
543 x_msg_count,
544 x_msg_data);
545
546 -- copy data back from the local variables to OUT or IN-OUT args, if any
547
548
552
549
550
551
553
554
555
556
557
558 as_opportunity_pub_w.rosetta_table_copy_out_p41(ddx_contact_out_tbl, p11_a0
559 , p11_a1
560 );
561
562
563
564 end;
565
566 procedure delete_contacts(p_api_version_number NUMBER
567 , p_init_msg_list VARCHAR2
568 , p_commit VARCHAR2
569 , p_validation_level NUMBER
570 , p_identity_salesforce_id NUMBER
571 , p5_a0 JTF_DATE_TABLE
572 , p5_a1 JTF_NUMBER_TABLE
573 , p5_a2 JTF_DATE_TABLE
574 , p5_a3 JTF_NUMBER_TABLE
575 , p5_a4 JTF_NUMBER_TABLE
576 , p5_a5 JTF_NUMBER_TABLE
577 , p5_a6 JTF_NUMBER_TABLE
578 , p5_a7 JTF_NUMBER_TABLE
579 , p5_a8 JTF_DATE_TABLE
580 , p5_a9 JTF_NUMBER_TABLE
581 , p5_a10 JTF_NUMBER_TABLE
582 , p5_a11 JTF_NUMBER_TABLE
583 , p5_a12 JTF_NUMBER_TABLE
584 , p5_a13 JTF_NUMBER_TABLE
585 , p5_a14 JTF_VARCHAR2_TABLE_100
586 , p5_a15 JTF_VARCHAR2_TABLE_100
587 , p5_a16 JTF_VARCHAR2_TABLE_100
588 , p5_a17 JTF_VARCHAR2_TABLE_300
589 , p5_a18 JTF_NUMBER_TABLE
590 , p5_a19 JTF_VARCHAR2_TABLE_100
591 , p5_a20 JTF_VARCHAR2_TABLE_100
592 , p5_a21 JTF_VARCHAR2_TABLE_100
593 , p5_a22 JTF_VARCHAR2_TABLE_100
594 , p5_a23 JTF_VARCHAR2_TABLE_100
595 , p5_a24 JTF_NUMBER_TABLE
596 , p5_a25 JTF_VARCHAR2_TABLE_100
597 , p5_a26 JTF_VARCHAR2_TABLE_100
598 , p5_a27 JTF_NUMBER_TABLE
599 , p5_a28 JTF_VARCHAR2_TABLE_100
600 , p5_a29 JTF_VARCHAR2_TABLE_200
601 , p5_a30 JTF_VARCHAR2_TABLE_200
602 , p5_a31 JTF_VARCHAR2_TABLE_200
603 , p5_a32 JTF_VARCHAR2_TABLE_200
604 , p5_a33 JTF_VARCHAR2_TABLE_200
605 , p5_a34 JTF_VARCHAR2_TABLE_200
606 , p5_a35 JTF_VARCHAR2_TABLE_200
607 , p5_a36 JTF_VARCHAR2_TABLE_200
608 , p5_a37 JTF_VARCHAR2_TABLE_200
609 , p5_a38 JTF_VARCHAR2_TABLE_200
610 , p5_a39 JTF_VARCHAR2_TABLE_200
611 , p5_a40 JTF_VARCHAR2_TABLE_200
612 , p5_a41 JTF_VARCHAR2_TABLE_200
613 , p5_a42 JTF_VARCHAR2_TABLE_200
614 , p5_a43 JTF_VARCHAR2_TABLE_200
615 , p_check_access_flag VARCHAR2
616 , p_admin_flag VARCHAR2
617 , p_admin_group_id NUMBER
618 , p_partner_cont_party_id NUMBER
619 , p10_a0 JTF_VARCHAR2_TABLE_100
620 , p10_a1 JTF_VARCHAR2_TABLE_300
621 , p11_a0 out nocopy JTF_NUMBER_TABLE
622 , p11_a1 out nocopy JTF_VARCHAR2_TABLE_100
623 , x_return_status out nocopy VARCHAR2
624 , x_msg_count out nocopy NUMBER
625 , x_msg_data out nocopy VARCHAR2
626 )
627
628 as
629 ddp_contact_tbl as_opportunity_pub.contact_tbl_type;
630 ddp_profile_tbl as_utility_pub.profile_tbl_type;
631 ddx_contact_out_tbl as_opportunity_pub.contact_out_tbl_type;
632 ddindx binary_integer; indx binary_integer;
633 begin
634
635 -- copy data to the local IN or IN-OUT args, if any
636
637
638
639
640
641 as_opportunity_pub_w.rosetta_table_copy_in_p38(ddp_contact_tbl, p5_a0
642 , p5_a1
643 , p5_a2
644 , p5_a3
645 , p5_a4
646 , p5_a5
647 , p5_a6
648 , p5_a7
649 , p5_a8
650 , p5_a9
651 , p5_a10
652 , p5_a11
653 , p5_a12
654 , p5_a13
655 , p5_a14
656 , p5_a15
657 , p5_a16
658 , p5_a17
659 , p5_a18
660 , p5_a19
661 , p5_a20
662 , p5_a21
663 , p5_a22
664 , p5_a23
665 , p5_a24
666 , p5_a25
667 , p5_a26
668 , p5_a27
669 , p5_a28
670 , p5_a29
671 , p5_a30
672 , p5_a31
673 , p5_a32
674 , p5_a33
675 , p5_a34
676 , p5_a35
677 , p5_a36
678 , p5_a37
679 , p5_a38
680 , p5_a39
681 , p5_a40
682 , p5_a41
683 , p5_a42
684 , p5_a43
685 );
686
687
688
689
690
691 as_utility_pub_w.rosetta_table_copy_in_p6(ddp_profile_tbl, p10_a0
692 , p10_a1
693 );
694
695
696
697
698
699 -- here's the delegated call to the old PL/SQL routine
700 as_opportunity_pub.delete_contacts(p_api_version_number,
701 p_init_msg_list,
702 p_commit,
703 p_validation_level,
704 p_identity_salesforce_id,
705 ddp_contact_tbl,
706 p_check_access_flag,
707 p_admin_flag,
708 p_admin_group_id,
709 p_partner_cont_party_id,
710 ddp_profile_tbl,
711 ddx_contact_out_tbl,
712 x_return_status,
713 x_msg_count,
714 x_msg_data);
715
716 -- copy data back from the local variables to OUT or IN-OUT args, if any
717
718
719
720
721
722
723
724
725
726
727
728 as_opportunity_pub_w.rosetta_table_copy_out_p41(ddx_contact_out_tbl, p11_a0
729 , p11_a1
730 );
731
732
733
734 end;
735
736 procedure delete_salesteams(p_api_version_number NUMBER
740 , p4_a0 JTF_NUMBER_TABLE
737 , p_init_msg_list VARCHAR2
738 , p_commit VARCHAR2
739 , p_validation_level NUMBER
741 , p4_a1 JTF_DATE_TABLE
742 , p4_a2 JTF_NUMBER_TABLE
743 , p4_a3 JTF_DATE_TABLE
744 , p4_a4 JTF_NUMBER_TABLE
745 , p4_a5 JTF_NUMBER_TABLE
746 , p4_a6 JTF_VARCHAR2_TABLE_100
747 , p4_a7 JTF_VARCHAR2_TABLE_100
748 , p4_a8 JTF_VARCHAR2_TABLE_100
749 , p4_a9 JTF_NUMBER_TABLE
750 , p4_a10 JTF_NUMBER_TABLE
751 , p4_a11 JTF_NUMBER_TABLE
752 , p4_a12 JTF_NUMBER_TABLE
753 , p4_a13 JTF_VARCHAR2_TABLE_300
754 , p4_a14 JTF_VARCHAR2_TABLE_100
755 , p4_a15 JTF_VARCHAR2_TABLE_100
756 , p4_a16 JTF_VARCHAR2_TABLE_300
757 , p4_a17 JTF_VARCHAR2_TABLE_100
758 , p4_a18 JTF_NUMBER_TABLE
759 , p4_a19 JTF_VARCHAR2_TABLE_100
760 , p4_a20 JTF_NUMBER_TABLE
761 , p4_a21 JTF_NUMBER_TABLE
762 , p4_a22 JTF_VARCHAR2_TABLE_100
763 , p4_a23 JTF_VARCHAR2_TABLE_100
764 , p4_a24 JTF_VARCHAR2_TABLE_100
765 , p4_a25 JTF_VARCHAR2_TABLE_100
766 , p4_a26 JTF_VARCHAR2_TABLE_100
767 , p4_a27 JTF_VARCHAR2_TABLE_100
768 , p4_a28 JTF_NUMBER_TABLE
769 , p4_a29 JTF_NUMBER_TABLE
770 , p4_a30 JTF_DATE_TABLE
771 , p4_a31 JTF_VARCHAR2_TABLE_300
772 , p4_a32 JTF_DATE_TABLE
773 , p4_a33 JTF_NUMBER_TABLE
774 , p4_a34 JTF_VARCHAR2_TABLE_100
775 , p4_a35 JTF_VARCHAR2_TABLE_100
776 , p4_a36 JTF_VARCHAR2_TABLE_200
777 , p4_a37 JTF_VARCHAR2_TABLE_200
778 , p4_a38 JTF_VARCHAR2_TABLE_200
779 , p4_a39 JTF_VARCHAR2_TABLE_200
780 , p4_a40 JTF_VARCHAR2_TABLE_200
781 , p4_a41 JTF_VARCHAR2_TABLE_200
782 , p4_a42 JTF_VARCHAR2_TABLE_200
783 , p4_a43 JTF_VARCHAR2_TABLE_200
784 , p4_a44 JTF_VARCHAR2_TABLE_200
785 , p4_a45 JTF_VARCHAR2_TABLE_200
786 , p4_a46 JTF_VARCHAR2_TABLE_200
787 , p4_a47 JTF_VARCHAR2_TABLE_200
788 , p4_a48 JTF_VARCHAR2_TABLE_200
789 , p4_a49 JTF_VARCHAR2_TABLE_200
790 , p4_a50 JTF_VARCHAR2_TABLE_200
791 , p4_a51 JTF_VARCHAR2_TABLE_100
792 , p4_a52 JTF_VARCHAR2_TABLE_100
793 , p4_a53 JTF_VARCHAR2_TABLE_100
794 , p4_a54 JTF_NUMBER_TABLE
795 , p4_a55 JTF_NUMBER_TABLE
796 , p4_a56 JTF_VARCHAR2_TABLE_100
797 , p4_a57 JTF_VARCHAR2_TABLE_100
798 , p4_a58 JTF_VARCHAR2_TABLE_100
799 , p4_a59 JTF_VARCHAR2_TABLE_100
800 , p_check_access_flag VARCHAR2
801 , p_admin_flag VARCHAR2
802 , p_admin_group_id NUMBER
803 , p_identity_salesforce_id NUMBER
804 , p_partner_cont_party_id NUMBER
805 , p10_a0 JTF_VARCHAR2_TABLE_100
806 , p10_a1 JTF_VARCHAR2_TABLE_300
807 , x_return_status out nocopy VARCHAR2
808 , x_msg_count out nocopy NUMBER
809 , x_msg_data out nocopy VARCHAR2
810 )
811
812 as
813 ddp_sales_team_tbl as_access_pub.sales_team_tbl_type;
814 ddp_profile_tbl as_utility_pub.profile_tbl_type;
815 ddindx binary_integer; indx binary_integer;
816 begin
817
818 -- copy data to the local IN or IN-OUT args, if any
819
820
821
822
823 as_access_pub_w.rosetta_table_copy_in_p2(ddp_sales_team_tbl, p4_a0
824 , p4_a1
825 , p4_a2
826 , p4_a3
827 , p4_a4
828 , p4_a5
829 , p4_a6
830 , p4_a7
831 , p4_a8
832 , p4_a9
833 , p4_a10
834 , p4_a11
835 , p4_a12
836 , p4_a13
837 , p4_a14
838 , p4_a15
839 , p4_a16
840 , p4_a17
841 , p4_a18
842 , p4_a19
843 , p4_a20
844 , p4_a21
845 , p4_a22
846 , p4_a23
847 , p4_a24
848 , p4_a25
849 , p4_a26
850 , p4_a27
851 , p4_a28
852 , p4_a29
853 , p4_a30
854 , p4_a31
855 , p4_a32
856 , p4_a33
857 , p4_a34
858 , p4_a35
859 , p4_a36
860 , p4_a37
861 , p4_a38
862 , p4_a39
863 , p4_a40
864 , p4_a41
865 , p4_a42
866 , p4_a43
867 , p4_a44
868 , p4_a45
869 , p4_a46
870 , p4_a47
871 , p4_a48
872 , p4_a49
873 , p4_a50
874 , p4_a51
875 , p4_a52
876 , p4_a53
877 , p4_a54
878 , p4_a55
879 , p4_a56
880 , p4_a57
881 , p4_a58
882 , p4_a59
883 );
884
885
886
887
888
889
890 as_utility_pub_w.rosetta_table_copy_in_p6(ddp_profile_tbl, p10_a0
891 , p10_a1
892 );
893
894
895
896
897 -- here's the delegated call to the old PL/SQL routine
898 as_opportunity_pub.delete_salesteams(p_api_version_number,
899 p_init_msg_list,
900 p_commit,
901 p_validation_level,
902 ddp_sales_team_tbl,
903 p_check_access_flag,
904 p_admin_flag,
905 p_admin_group_id,
906 p_identity_salesforce_id,
907 p_partner_cont_party_id,
911 x_msg_data);
908 ddp_profile_tbl,
909 x_return_status,
910 x_msg_count,
912
913 -- copy data back from the local variables to OUT or IN-OUT args, if any
914
915
916
917
918
919
920
921
922
923
924
925
926
927 end;
928
929 procedure copy_opportunity(p_api_version_number NUMBER
930 , p_init_msg_list VARCHAR2
931 , p_commit VARCHAR2
932 , p_validation_level NUMBER
933 , p_lead_id NUMBER
934 , p_description VARCHAR2
935 , p_copy_salesteam VARCHAR2
936 , p_copy_opp_lines VARCHAR2
937 , p_copy_lead_contacts VARCHAR2
938 , p_copy_lead_competitors VARCHAR2
939 , p_copy_sales_credits VARCHAR2
940 , p_copy_methodology VARCHAR2
941 , p_new_customer_id NUMBER
942 , p_new_address_id NUMBER
943 , p_check_access_flag VARCHAR2
944 , p_admin_flag VARCHAR2
945 , p_admin_group_id NUMBER
946 , p_identity_salesforce_id NUMBER
947 , p_salesgroup_id NUMBER
948 , p_partner_cont_party_id NUMBER
949 , p20_a0 JTF_VARCHAR2_TABLE_100
950 , p20_a1 JTF_VARCHAR2_TABLE_300
951 , x_return_status out nocopy VARCHAR2
952 , x_msg_count out nocopy NUMBER
953 , x_msg_data out nocopy VARCHAR2
954 , x_lead_id out nocopy NUMBER
955 )
956
957 as
958 ddp_profile_tbl as_utility_pub.profile_tbl_type;
959 ddindx binary_integer; indx binary_integer;
960 begin
961
962 -- copy data to the local IN or IN-OUT args, if any
963
964
965
966
967
968
969
970
971
972
973
974
975
976
977
978
979
980
981
982
983 as_utility_pub_w.rosetta_table_copy_in_p6(ddp_profile_tbl, p20_a0
984 , p20_a1
985 );
986
987
988
989
990
991 -- here's the delegated call to the old PL/SQL routine
992 as_opportunity_pub.copy_opportunity(p_api_version_number,
993 p_init_msg_list,
994 p_commit,
995 p_validation_level,
996 p_lead_id,
997 p_description,
998 p_copy_salesteam,
999 p_copy_opp_lines,
1000 p_copy_lead_contacts,
1001 p_copy_lead_competitors,
1002 p_copy_sales_credits,
1003 p_copy_methodology,
1004 p_new_customer_id,
1005 p_new_address_id,
1006 p_check_access_flag,
1007 p_admin_flag,
1008 p_admin_group_id,
1009 p_identity_salesforce_id,
1010 p_salesgroup_id,
1011 p_partner_cont_party_id,
1012 ddp_profile_tbl,
1013 x_return_status,
1014 x_msg_count,
1015 x_msg_data,
1016 x_lead_id);
1017
1018 -- copy data back from the local variables to OUT or IN-OUT args, if any
1019
1020
1021
1022
1023
1024
1025
1026
1027
1028
1029
1030
1031
1032
1033
1034
1035
1036
1037
1038
1039
1040
1041
1042
1043 end;
1044
1045 procedure get_access_profiles(p0_a0 JTF_VARCHAR2_TABLE_100
1046 , p0_a1 JTF_VARCHAR2_TABLE_300
1047 , p1_a0 out nocopy VARCHAR2
1048 , p1_a1 out nocopy VARCHAR2
1049 , p1_a2 out nocopy VARCHAR2
1050 , p1_a3 out nocopy VARCHAR2
1051 , p1_a4 out nocopy VARCHAR2
1052 )
1053
1054 as
1055 ddp_profile_tbl as_utility_pub.profile_tbl_type;
1056 ddx_access_profile_rec as_access_pub.access_profile_rec_type;
1057 ddindx binary_integer; indx binary_integer;
1058 begin
1059
1060 -- copy data to the local IN or IN-OUT args, if any
1061 as_utility_pub_w.rosetta_table_copy_in_p6(ddp_profile_tbl, p0_a0
1062 , p0_a1
1063 );
1064
1065
1066 -- here's the delegated call to the old PL/SQL routine
1067 as_opportunity_pub.get_access_profiles(ddp_profile_tbl,
1068 ddx_access_profile_rec);
1069
1070 -- copy data back from the local variables to OUT or IN-OUT args, if any
1071
1072 p1_a0 := ddx_access_profile_rec.cust_access_profile_value;
1073 p1_a1 := ddx_access_profile_rec.lead_access_profile_value;
1074 p1_a2 := ddx_access_profile_rec.opp_access_profile_value;
1075 p1_a3 := ddx_access_profile_rec.mgr_update_profile_value;
1076 p1_a4 := ddx_access_profile_rec.admin_update_profile_value;
1077 end;
1078
1079 function get_profile(p0_a0 JTF_VARCHAR2_TABLE_100
1080 , p0_a1 JTF_VARCHAR2_TABLE_300
1081 , p_profile_name VARCHAR2
1082 ) return varchar2
1083
1084 as
1085 ddp_profile_tbl as_utility_pub.profile_tbl_type;
1086 ddindx binary_integer; indx binary_integer;
1087 ddrosetta_retval varchar2(4000);
1088 begin
1089
1090 -- copy data to the local IN or IN-OUT args, if any
1091 as_utility_pub_w.rosetta_table_copy_in_p6(ddp_profile_tbl, p0_a0
1092 , p0_a1
1093 );
1094
1095
1096 -- here's the delegated call to the old PL/SQL routine
1100 -- copy data back from the local variables to OUT or IN-OUT args, if any
1097 ddrosetta_retval := as_opportunity_pub.get_profile(ddp_profile_tbl,
1098 p_profile_name);
1099
1101
1102
1103 return ddrosetta_retval;
1104 end;
1105
1106 end as_opportunity_pub_w4;