eTRM uses javascript that opens and focuses a separate window to display reports. Your browser does not appear to support javascript. This should not prevent you from using eTRM but it does mean the window focus feature will not work. Please check the contents of other windows on your desktop if you click on a link that does not appear to do anything.
PACKAGE BODY: APPS.AS_SALES_LEAD_REFERRAL_W

Source


1 package body as_sales_lead_referral_w as
2   /* $Header: asxwlrpb.pls 120.1 2005/06/23 15:52:01 appldev ship $ */
3   rosetta_g_mistake_date date := to_date('01/01/+4713', 'MM/DD/SYYYY');
4   rosetta_g_miss_date date := to_date('01/01/-4712', 'MM/DD/SYYYY');
5 
6   function rosetta_g_miss_num_map(n number) return number as
7     a number := fnd_api.g_miss_num;
8     b number := 0-1962.0724;
9   begin
10     if n=a then return b; end if;
11     if n=b then return a; end if;
12     return n;
13   end;
14 
15   -- this is to workaround the JDBC bug regarding IN DATE of value GMiss
16   function rosetta_g_miss_date_in_map(d date) return date as
17   begin
18     if d = rosetta_g_mistake_date then return fnd_api.g_miss_date; end if;
19     return d;
20   end;
21 
22   procedure rosetta_table_copy_in_p53(t OUT NOCOPY  as_sales_lead_referral.t_overriding_usernames, a0 JTF_VARCHAR2_TABLE_100) as
23     ddindx binary_integer; indx binary_integer;
24   begin
25   if a0 is not null and a0.count > 0 then
26       if a0.count > 0 then
27         indx := a0.first;
28         ddindx := 1;
29         while true loop
30           t(ddindx) := a0(indx);
31           ddindx := ddindx+1;
32           if a0.last =indx
33             then exit;
34           end if;
35           indx := a0.next(indx);
36         end loop;
37       end if;
38    end if;
39   end rosetta_table_copy_in_p53;
40   procedure rosetta_table_copy_out_p53(t as_sales_lead_referral.t_overriding_usernames, a0 OUT NOCOPY  JTF_VARCHAR2_TABLE_100) as
41     ddindx binary_integer; indx binary_integer;
42   begin
43   if t is null or t.count = 0 then
44     a0 := JTF_VARCHAR2_TABLE_100();
45   else
46       a0 := JTF_VARCHAR2_TABLE_100();
47       if t.count > 0 then
48         a0.extend(t.count);
49         ddindx := t.first;
50         indx := 1;
51         while true loop
52           a0(indx) := t(ddindx);
53           indx := indx+1;
54           if t.last =ddindx
55             then exit;
56           end if;
57           ddindx := t.next(ddindx);
58         end loop;
59       end if;
60    end if;
61   end rosetta_table_copy_out_p53;
62 
63   procedure notify_party(p_api_version  NUMBER
64     , p_init_msg_list  VARCHAR2
65     , p_commit  VARCHAR2
66     , p_validation_level  NUMBER
67     , p_lead_id  NUMBER
68     , p_lead_status  VARCHAR2
69     , p_salesforce_id  NUMBER
70     , p_overriding_usernames JTF_VARCHAR2_TABLE_100
71     , x_msg_count OUT NOCOPY   NUMBER
72     , x_msg_data OUT NOCOPY   VARCHAR2
73     , x_return_status OUT NOCOPY   VARCHAR2
74   )
75 
76   as
77     ddp_overriding_usernames as_sales_lead_referral.t_overriding_usernames;
78     ddindx binary_integer; indx binary_integer;
79   begin
80 
81     -- copy data to the local IN or IN-OUT args, if any
82 
83 
84 
85 
86 
87 
88 
89     as_sales_lead_referral_w.rosetta_table_copy_in_p53(ddp_overriding_usernames, p_overriding_usernames);
90 
91 
92 
93 
94     -- here's the delegated call to the old PL/SQL routine
95     as_sales_lead_referral.notify_party(p_api_version,
96       p_init_msg_list,
97       p_commit,
98       p_validation_level,
99       p_lead_id,
100       p_lead_status,
101       p_salesforce_id,
102       ddp_overriding_usernames,
103       x_msg_count,
104       x_msg_data,
105       x_return_status);
106 
107     -- copy data back from the local variables to OUT NOCOPY  or IN-OUT args, if any
108 
109 
110 
111 
112 
113 
114 
115 
116 
117 
118   end;
119 
120   procedure update_sales_referral_lead(p_api_version_number  NUMBER
121     , p_init_msg_list  VARCHAR2
122     , p_commit  VARCHAR2
123     , p_validation_level  NUMBER
124     , p_check_access_flag  VARCHAR2
125     , p_admin_flag  VARCHAR2
126     , p_admin_group_id  NUMBER
127     , p_identity_salesforce_id  NUMBER
128     , p8_a0 JTF_VARCHAR2_TABLE_100
129     , p8_a1 JTF_VARCHAR2_TABLE_300
130     , p_overriding_usernames JTF_VARCHAR2_TABLE_100
131     , x_return_status OUT NOCOPY   VARCHAR2
132     , x_msg_count OUT NOCOPY   NUMBER
133     , x_msg_data OUT NOCOPY   VARCHAR2
134     , p9_a0  NUMBER := 0-1962.0724
135     , p9_a1  DATE := fnd_api.g_miss_date
136     , p9_a2  NUMBER := 0-1962.0724
137     , p9_a3  DATE := fnd_api.g_miss_date
138     , p9_a4  NUMBER := 0-1962.0724
139     , p9_a5  NUMBER := 0-1962.0724
140     , p9_a6  NUMBER := 0-1962.0724
141     , p9_a7  NUMBER := 0-1962.0724
142     , p9_a8  NUMBER := 0-1962.0724
143     , p9_a9  DATE := fnd_api.g_miss_date
144     , p9_a10  VARCHAR2 := fnd_api.g_miss_char
145     , p9_a11  VARCHAR2 := fnd_api.g_miss_char
146     , p9_a12  NUMBER := 0-1962.0724
147     , p9_a13  NUMBER := 0-1962.0724
148     , p9_a14  NUMBER := 0-1962.0724
149     , p9_a15  NUMBER := 0-1962.0724
150     , p9_a16  VARCHAR2 := fnd_api.g_miss_char
151     , p9_a17  VARCHAR2 := fnd_api.g_miss_char
152     , p9_a18  VARCHAR2 := fnd_api.g_miss_char
153     , p9_a19  NUMBER := 0-1962.0724
154     , p9_a20  VARCHAR2 := fnd_api.g_miss_char
155     , p9_a21  VARCHAR2 := fnd_api.g_miss_char
156     , p9_a22  VARCHAR2 := fnd_api.g_miss_char
157     , p9_a23  NUMBER := 0-1962.0724
158     , p9_a24  VARCHAR2 := fnd_api.g_miss_char
159     , p9_a25  VARCHAR2 := fnd_api.g_miss_char
160     , p9_a26  VARCHAR2 := fnd_api.g_miss_char
161     , p9_a27  VARCHAR2 := fnd_api.g_miss_char
162     , p9_a28  VARCHAR2 := fnd_api.g_miss_char
163     , p9_a29  VARCHAR2 := fnd_api.g_miss_char
164     , p9_a30  VARCHAR2 := fnd_api.g_miss_char
165     , p9_a31  VARCHAR2 := fnd_api.g_miss_char
166     , p9_a32  VARCHAR2 := fnd_api.g_miss_char
167     , p9_a33  VARCHAR2 := fnd_api.g_miss_char
168     , p9_a34  VARCHAR2 := fnd_api.g_miss_char
169     , p9_a35  VARCHAR2 := fnd_api.g_miss_char
170     , p9_a36  VARCHAR2 := fnd_api.g_miss_char
171     , p9_a37  VARCHAR2 := fnd_api.g_miss_char
172     , p9_a38  VARCHAR2 := fnd_api.g_miss_char
173     , p9_a39  VARCHAR2 := fnd_api.g_miss_char
174     , p9_a40  VARCHAR2 := fnd_api.g_miss_char
175     , p9_a41  VARCHAR2 := fnd_api.g_miss_char
176     , p9_a42  VARCHAR2 := fnd_api.g_miss_char
177     , p9_a43  NUMBER := 0-1962.0724
178     , p9_a44  NUMBER := 0-1962.0724
179     , p9_a45  NUMBER := 0-1962.0724
180     , p9_a46  DATE := fnd_api.g_miss_date
181     , p9_a47  VARCHAR2 := fnd_api.g_miss_char
182     , p9_a48  VARCHAR2 := fnd_api.g_miss_char
183     , p9_a49  VARCHAR2 := fnd_api.g_miss_char
184     , p9_a50  NUMBER := 0-1962.0724
185     , p9_a51  NUMBER := 0-1962.0724
186     , p9_a52  VARCHAR2 := fnd_api.g_miss_char
187     , p9_a53  VARCHAR2 := fnd_api.g_miss_char
188     , p9_a54  VARCHAR2 := fnd_api.g_miss_char
189     , p9_a55  VARCHAR2 := fnd_api.g_miss_char
190     , p9_a56  VARCHAR2 := fnd_api.g_miss_char
191     , p9_a57  NUMBER := 0-1962.0724
192     , p9_a58  NUMBER := 0-1962.0724
193     , p9_a59  NUMBER := 0-1962.0724
194     , p9_a60  VARCHAR2 := fnd_api.g_miss_char
195     , p9_a61  VARCHAR2 := fnd_api.g_miss_char
196     , p9_a62  VARCHAR2 := fnd_api.g_miss_char
197     , p9_a63  VARCHAR2 := fnd_api.g_miss_char
198     , p9_a64  VARCHAR2 := fnd_api.g_miss_char
199     , p9_a65  VARCHAR2 := fnd_api.g_miss_char
200     , p9_a66  VARCHAR2 := fnd_api.g_miss_char
201     , p9_a67  VARCHAR2 := fnd_api.g_miss_char
202     , p9_a68  NUMBER := 0-1962.0724
203     , p9_a69  NUMBER := 0-1962.0724
204     , p9_a70  NUMBER := 0-1962.0724
205     , p9_a71  NUMBER := 0-1962.0724
206     , p9_a72  VARCHAR2 := fnd_api.g_miss_char
207     , p9_a73  VARCHAR2 := fnd_api.g_miss_char
208     , p9_a74  VARCHAR2 := fnd_api.g_miss_char
209     , p9_a75  VARCHAR2 := fnd_api.g_miss_char
210     , p9_a76  NUMBER := 0-1962.0724
211     , p9_a77  NUMBER := 0-1962.0724
212     , p9_a78  NUMBER := 0-1962.0724
213     , p9_a79  DATE := fnd_api.g_miss_date
214     , p9_a80  VARCHAR2 := fnd_api.g_miss_char
215     , p9_a81  VARCHAR2 := fnd_api.g_miss_char
216   )
217 
218   as
219     ddp_sales_lead_profile_tbl as_utility_pub.profile_tbl_type;
220     ddp_sales_lead_rec as_sales_leads_pub.sales_lead_rec_type;
221     ddp_overriding_usernames as_sales_lead_referral.t_overriding_usernames;
222     ddindx binary_integer; indx binary_integer;
223   begin
224 
225     -- copy data to the local IN or IN-OUT args, if any
226 
227 
228 
229 
230 
231 
232 
233 
234     as_utility_pub_w.rosetta_table_copy_in_p6(ddp_sales_lead_profile_tbl, p8_a0
235       , p8_a1
236       );
237 
238     ddp_sales_lead_rec.sales_lead_id := rosetta_g_miss_num_map(p9_a0);
239     ddp_sales_lead_rec.last_update_date := rosetta_g_miss_date_in_map(p9_a1);
240     ddp_sales_lead_rec.last_updated_by := rosetta_g_miss_num_map(p9_a2);
241     ddp_sales_lead_rec.creation_date := rosetta_g_miss_date_in_map(p9_a3);
242     ddp_sales_lead_rec.created_by := rosetta_g_miss_num_map(p9_a4);
243     ddp_sales_lead_rec.last_update_login := rosetta_g_miss_num_map(p9_a5);
244     ddp_sales_lead_rec.request_id := rosetta_g_miss_num_map(p9_a6);
245     ddp_sales_lead_rec.program_application_id := rosetta_g_miss_num_map(p9_a7);
246     ddp_sales_lead_rec.program_id := rosetta_g_miss_num_map(p9_a8);
247     ddp_sales_lead_rec.program_update_date := rosetta_g_miss_date_in_map(p9_a9);
248     ddp_sales_lead_rec.lead_number := p9_a10;
249     ddp_sales_lead_rec.status_code := p9_a11;
250     ddp_sales_lead_rec.customer_id := rosetta_g_miss_num_map(p9_a12);
251     ddp_sales_lead_rec.address_id := rosetta_g_miss_num_map(p9_a13);
252     ddp_sales_lead_rec.source_promotion_id := rosetta_g_miss_num_map(p9_a14);
253     ddp_sales_lead_rec.initiating_contact_id := rosetta_g_miss_num_map(p9_a15);
254     ddp_sales_lead_rec.orig_system_reference := p9_a16;
255     ddp_sales_lead_rec.contact_role_code := p9_a17;
256     ddp_sales_lead_rec.channel_code := p9_a18;
257     ddp_sales_lead_rec.budget_amount := rosetta_g_miss_num_map(p9_a19);
258     ddp_sales_lead_rec.currency_code := p9_a20;
259     ddp_sales_lead_rec.decision_timeframe_code := p9_a21;
260     ddp_sales_lead_rec.close_reason := p9_a22;
261     ddp_sales_lead_rec.lead_rank_id := rosetta_g_miss_num_map(p9_a23);
262     ddp_sales_lead_rec.lead_rank_code := p9_a24;
263     ddp_sales_lead_rec.parent_project := p9_a25;
264     ddp_sales_lead_rec.description := p9_a26;
265     ddp_sales_lead_rec.attribute_category := p9_a27;
266     ddp_sales_lead_rec.attribute1 := p9_a28;
267     ddp_sales_lead_rec.attribute2 := p9_a29;
268     ddp_sales_lead_rec.attribute3 := p9_a30;
269     ddp_sales_lead_rec.attribute4 := p9_a31;
270     ddp_sales_lead_rec.attribute5 := p9_a32;
271     ddp_sales_lead_rec.attribute6 := p9_a33;
272     ddp_sales_lead_rec.attribute7 := p9_a34;
273     ddp_sales_lead_rec.attribute8 := p9_a35;
274     ddp_sales_lead_rec.attribute9 := p9_a36;
275     ddp_sales_lead_rec.attribute10 := p9_a37;
276     ddp_sales_lead_rec.attribute11 := p9_a38;
277     ddp_sales_lead_rec.attribute12 := p9_a39;
278     ddp_sales_lead_rec.attribute13 := p9_a40;
279     ddp_sales_lead_rec.attribute14 := p9_a41;
280     ddp_sales_lead_rec.attribute15 := p9_a42;
281     ddp_sales_lead_rec.assign_to_person_id := rosetta_g_miss_num_map(p9_a43);
282     ddp_sales_lead_rec.assign_to_salesforce_id := rosetta_g_miss_num_map(p9_a44);
283     ddp_sales_lead_rec.assign_sales_group_id := rosetta_g_miss_num_map(p9_a45);
284     ddp_sales_lead_rec.assign_date := rosetta_g_miss_date_in_map(p9_a46);
285     ddp_sales_lead_rec.budget_status_code := p9_a47;
286     ddp_sales_lead_rec.accept_flag := p9_a48;
287     ddp_sales_lead_rec.vehicle_response_code := p9_a49;
288     ddp_sales_lead_rec.total_score := rosetta_g_miss_num_map(p9_a50);
289     ddp_sales_lead_rec.scorecard_id := rosetta_g_miss_num_map(p9_a51);
290     ddp_sales_lead_rec.keep_flag := p9_a52;
291     ddp_sales_lead_rec.urgent_flag := p9_a53;
292     ddp_sales_lead_rec.import_flag := p9_a54;
293     ddp_sales_lead_rec.reject_reason_code := p9_a55;
294     ddp_sales_lead_rec.deleted_flag := p9_a56;
295     ddp_sales_lead_rec.offer_id := rosetta_g_miss_num_map(p9_a57);
296     ddp_sales_lead_rec.incumbent_partner_party_id := rosetta_g_miss_num_map(p9_a58);
297     ddp_sales_lead_rec.incumbent_partner_resource_id := rosetta_g_miss_num_map(p9_a59);
298     ddp_sales_lead_rec.prm_exec_sponsor_flag := p9_a60;
299     ddp_sales_lead_rec.prm_prj_lead_in_place_flag := p9_a61;
300     ddp_sales_lead_rec.prm_sales_lead_type := p9_a62;
301     ddp_sales_lead_rec.prm_ind_classification_code := p9_a63;
302     ddp_sales_lead_rec.qualified_flag := p9_a64;
303     ddp_sales_lead_rec.orig_system_code := p9_a65;
304     ddp_sales_lead_rec.prm_assignment_type := p9_a66;
305     ddp_sales_lead_rec.auto_assignment_type := p9_a67;
306     ddp_sales_lead_rec.primary_contact_party_id := rosetta_g_miss_num_map(p9_a68);
307     ddp_sales_lead_rec.primary_cnt_person_party_id := rosetta_g_miss_num_map(p9_a69);
308     ddp_sales_lead_rec.primary_contact_phone_id := rosetta_g_miss_num_map(p9_a70);
309     ddp_sales_lead_rec.referred_by := rosetta_g_miss_num_map(p9_a71);
310     ddp_sales_lead_rec.referral_type := p9_a72;
311     ddp_sales_lead_rec.referral_status := p9_a73;
312     ddp_sales_lead_rec.ref_decline_reason := p9_a74;
313     ddp_sales_lead_rec.ref_comm_ltr_status := p9_a75;
314     ddp_sales_lead_rec.ref_order_number := rosetta_g_miss_num_map(p9_a76);
315     ddp_sales_lead_rec.ref_order_amt := rosetta_g_miss_num_map(p9_a77);
316     ddp_sales_lead_rec.ref_comm_amt := rosetta_g_miss_num_map(p9_a78);
317     ddp_sales_lead_rec.lead_date := rosetta_g_miss_date_in_map(p9_a79);
318     ddp_sales_lead_rec.source_system := p9_a80;
319     ddp_sales_lead_rec.country := p9_a81;
320 
321     as_sales_lead_referral_w.rosetta_table_copy_in_p53(ddp_overriding_usernames, p_overriding_usernames);
322 
323 
324 
325 
326     -- here's the delegated call to the old PL/SQL routine
327     as_sales_lead_referral.update_sales_referral_lead(p_api_version_number,
328       p_init_msg_list,
329       p_commit,
330       p_validation_level,
331       p_check_access_flag,
332       p_admin_flag,
333       p_admin_group_id,
334       p_identity_salesforce_id,
335       ddp_sales_lead_profile_tbl,
336       ddp_sales_lead_rec,
337       ddp_overriding_usernames,
338       x_return_status,
339       x_msg_count,
340       x_msg_data);
341 
342     -- copy data back from the local variables to OUT NOCOPY  or IN-OUT args, if any
343 
344 
345 
346 
347 
348 
349 
350 
351 
352 
353 
354 
355 
356   end;
357 
358 end as_sales_lead_referral_w;