PACKAGE BODY: APPS.AMS_SCR_LEAD_PVT_W

Source

1 package body ams_scr_lead_pvt_w as
2   /* $Header: amswsldb.pls 115.0 2002/12/26 01:27:49 sodixit 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   procedure create_sales_lead(p_init_msg_list  VARCHAR2
14     , p_commit  VARCHAR2
15     , p_validation_level  NUMBER
16     , p_party_type  VARCHAR2
17     , p4_a0  NUMBER
18     , p4_a1  VARCHAR2
19     , p4_a2  VARCHAR2
20     , p4_a3  VARCHAR2
21     , p4_a4  VARCHAR2
22     , p4_a5  VARCHAR2
23     , p4_a6  VARCHAR2
24     , p4_a7  VARCHAR2
25     , p4_a8  VARCHAR2
26     , p4_a9  VARCHAR2
27     , p4_a10  VARCHAR2
28     , p4_a11  VARCHAR2
29     , p4_a12  VARCHAR2
30     , p4_a13  VARCHAR2
31     , p4_a14  VARCHAR2
32     , p4_a15  VARCHAR2
33     , p4_a16  VARCHAR2
34     , p4_a17  NUMBER
35     , p4_a18  VARCHAR2
36     , p4_a19  VARCHAR2
37     , p4_a20  NUMBER
38     , p4_a21  VARCHAR2
39     , p4_a22  VARCHAR2
40     , p_camp_sch_source_code  VARCHAR2
41     , x_return_status out nocopy  VARCHAR2
42     , x_msg_count out nocopy  NUMBER
43     , x_msg_data out nocopy  VARCHAR2
44     , p_party_id  NUMBER
45     , p_org_party_id  NUMBER
46     , p_org_rel_party_id  NUMBER
47   )
48 
49   as
50     ddp_scr_lead_rec ams_scr_lead_pvt.scr_lead_rec_type;
51     ddindx binary_integer; indx binary_integer;
52   begin
53 
54     -- copy data to the local IN or IN-OUT args, if any
55 
56 
57 
58 
59     ddp_scr_lead_rec.party_id := p4_a0;
60     ddp_scr_lead_rec.first_name := p4_a1;
61     ddp_scr_lead_rec.last_name := p4_a2;
62     ddp_scr_lead_rec.organization := p4_a3;
63     ddp_scr_lead_rec.job_title := p4_a4;
64     ddp_scr_lead_rec.email_address := p4_a5;
65     ddp_scr_lead_rec.day_area_code := p4_a6;
66     ddp_scr_lead_rec.day_phone_number := p4_a7;
67     ddp_scr_lead_rec.day_extension := p4_a8;
68     ddp_scr_lead_rec.address1 := p4_a9;
69     ddp_scr_lead_rec.address2 := p4_a10;
70     ddp_scr_lead_rec.address3 := p4_a11;
71     ddp_scr_lead_rec.address4 := p4_a12;
72     ddp_scr_lead_rec.city := p4_a13;
73     ddp_scr_lead_rec.state := p4_a14;
74     ddp_scr_lead_rec.country := p4_a15;
75     ddp_scr_lead_rec.postal_code := p4_a16;
76     ddp_scr_lead_rec.interest_type := p4_a17;
77     ddp_scr_lead_rec.purchasing_time_frame := p4_a18;
78     ddp_scr_lead_rec.budget_status_code := p4_a19;
79     ddp_scr_lead_rec.budget_amount := p4_a20;
80     ddp_scr_lead_rec.budget_currency_code := p4_a21;
81     ddp_scr_lead_rec.contact_role_code := p4_a22;
82 
83 
84 
85 
86 
87 
88 
89 
90     -- here's the delegated call to the old PL/SQL routine
91     ams_scr_lead_pvt.create_sales_lead(p_init_msg_list,
92       p_commit,
93       p_validation_level,
94       p_party_type,
95       ddp_scr_lead_rec,
96       p_camp_sch_source_code,
97       x_return_status,
98       x_msg_count,
99       x_msg_data,
100       p_party_id,
101       p_org_party_id,
102       p_org_rel_party_id);
103 
104     -- copy data back from the local variables to OUT or IN-OUT args, if any
105 
106 
107 
108 
109 
110 
111 
112 
113 
114 
115 
116   end;
117 
118 end ams_scr_lead_pvt_w;