[Home] [Help]
PACKAGE: APPS.AS_SALES_LEAD_REFERRAL
Source
1 PACKAGE AS_SALES_LEAD_REFERRAL AUTHID CURRENT_USER AS
2 /* $Header: asxvlrps.pls 120.1 2005/06/24 17:10:32 appldev ship $ */
3
4
5 g_pkg_name CONSTANT VARCHAR2(30):='AS_SALES_LEAD_REFERRAL';
6
7 g_wf_itemtype_notify CONSTANT VARCHAR2(30) := 'ASLEADNT';
8 g_wf_pcs_notify_ptnr CONSTANT VARCHAR2(30) := 'AS_LEAD_NOTIFY_PTNR_PCR';
9 g_wf_attr_create_notify_role CONSTANT VARCHAR2(30) := 'AS_LEAD_NOTIFY_CREATE_ROLE_ATR';
10 g_wf_attr_accept_notify_role CONSTANT VARCHAR2(30) := 'AS_LEAD_NOTIFY_ACCEPT_ROLE_ATR';
11 g_wf_attr_reject_notify_role CONSTANT VARCHAR2(30) := 'AS_LEAD_NOTIFY_REJECT_ROLE_ATR';
12 g_wf_attr_referral_notify_role CONSTANT VARCHAR2(30) := 'AS_LEAD_NOTIFY_REF_ROLE_ATR';
13 g_wf_attr_new_notify_role_ptnr CONSTANT VARCHAR2(30) := 'AS_LEAD_NEW_ROLE_PTNR_ATR';
14 g_wf_attr_new_notify_role_vndr CONSTANT VARCHAR2(30) := 'AS_LEAD_NEW_ROLE_VNDR_ATR';
15 g_wf_attr_referral_type CONSTANT VARCHAR2(30) := 'AS_LEAD_REFERRAL_TYPE_ATR';
16 g_wf_attr_ptnr_user_name CONSTANT VARCHAR2(30) := 'AS_LEAD_PTNR_USER_NAME_ATR';
17 g_wf_attr_cust_name CONSTANT VARCHAR2(30) := 'AS_LEAD_CUST_NAME_ATR';
18 g_wf_attr_cust_state CONSTANT VARCHAR2(30) := 'AS_LEAD_CUST_STATE_ATR';
19 g_wf_attr_cust_country CONSTANT VARCHAR2(30) := 'AS_LEAD_CUST_COUNTRY_ATR';
20 g_wf_attr_reviewer_comments CONSTANT VARCHAR2(30) := 'AS_LEAD_REVWR_CMNTS_ATR';
21 g_wf_attr_declined_reason CONSTANT VARCHAR2(30) := 'AS_LEAD_DECLINED_REASON_ATR';
22 g_wf_attr_ptnr_org_name CONSTANT VARCHAR2(30) := 'AS_LEAD_PTNR_ORG_NAME_ATR';
23 g_wf_attr_referral_closedate CONSTANT VARCHAR2(30) := 'AS_LEAD_REF_CLOSEDATE_ATR';
24 g_wf_attr_referral_commission CONSTANT VARCHAR2(30) := 'AS_LEAD_REF_COMMISSION_ATR';
25 g_wf_attr_lead_name CONSTANT VARCHAR2(30) := 'AS_LEAD_NAME_ATR';
26 g_wf_attr_lead_status CONSTANT VARCHAR2(30) := 'AS_LEAD_STATUS_ATR';
27 g_wf_attr_respond_url CONSTANT VARCHAR2(30) := 'AS_LEAD_WORKFLOW_RESPOND_URL';
28 g_wf_lkup_lead_status CONSTANT VARCHAR2(30) := 'AS_LEAD_STATUS_LKP';
29
30 g_wf_attr_sales_lead_id CONSTANT VARCHAR2(50) := 'AS_LEAD_ID_ATR';
31 g_wf_attr_referred_by CONSTANT VARCHAR2(50) := 'AS_LEAD_REFERRED_BY_ATR';
32 g_wf_attr_referral_type_mean CONSTANT VARCHAR2(50) := 'AS_LEAD_REF_TYPE_MEAN_ATR';
33 g_wf_attr_lead_status_mean CONSTANT VARCHAR2(50) := 'AS_LEAD_STATUS_MEAN_ATR';
34 g_wf_attr_dec_reason_mean CONSTANT VARCHAR2(50) := 'AS_LEAD_DEC_REASON_MEAN_ATR';
35 g_wf_attr_created_by CONSTANT VARCHAR2(50) := 'AS_LEAD_CREATED_BY_ATR';
36 g_wf_attr_category CONSTANT VARCHAR2(50) := 'AS_LEAD_CATEGORY_ATR';
37 g_wf_attr_ptnr_full_name CONSTANT VARCHAR2(50) := 'AS_LEAD_PTNR_FULL_NAME_ATR';
38 g_wf_attr_create_ptnr_role CONSTANT VARCHAR2(50) := 'AS_CREATE_PTNR_ROLE_ATR';
39
40 g_wf_lkup_lead_status CONSTANT VARCHAR2(50) := 'AS_LEAD_STATUS_LKP';
41
42 g_wf_lkup_lead_status_acc CONSTANT VARCHAR2(30) := 'LEAD_ACCEPTED';
43 g_wf_lkup_lead_status_dec CONSTANT VARCHAR2(30) := 'LEAD_DECLINED';
44 g_wf_lkup_lead_status_sub CONSTANT VARCHAR2(30) := 'LEAD_SUBMITTED';
45 g_wf_lkup_lead_status_comm_ltr CONSTANT VARCHAR2(30) := 'COMM_LTR_SENT';
46 g_wf_lkup_lead_status_comm_acc CONSTANT VARCHAR2(30) := 'COMM_ACCEPTED';
47 g_wf_lkup_lead_status_comm_rej CONSTANT VARCHAR2(30) := 'COMM_REJECTED';
48
49
50 g_wf_lkup_lead_status_ref CONSTANT VARCHAR2(30) := 'REFERRAL';
51
52 g_entity VARCHAR2(20) := 'LEAD';
53 g_wf_status_closed CONSTANT VARCHAR2(20) := 'CLOSED';
54 g_source_type VARCHAR2(20) := 'SALESTEAM';
55
56
57 g_referral_status_sub CONSTANT VARCHAR2(20) := fnd_profile.value('REF_STATUS_FOR_NEW_LEAD');
58 g_referral_status_acc CONSTANT VARCHAR2(20) := fnd_profile.value('REF_STATUS_FOR_CONV_LEAD');
59 g_referral_status_dec CONSTANT VARCHAR2(20) := fnd_profile.value('REF_STATUS_FOR_LINK_LEAD');
60 g_referral_status_comm_ltr CONSTANT VARCHAR2(20) := fnd_profile.value('REF_STATUS_FOR_COMM_LTR');
61 g_referral_status_comm_acc CONSTANT VARCHAR2(20) := 'ACCEPTCOMM';
62 g_referral_status_comm_rej CONSTANT VARCHAR2(20) := 'REJECTCOMM';
63 g_referral_status_cust_pmt CONSTANT VARCHAR2(20) := 'CUSTPMTRCVD';
64 g_referral_status_pmt_proc CONSTANT VARCHAR2(20) := 'PMTPROCSD';
65 g_referral_status_comm_pd CONSTANT VARCHAR2(20) := 'COMMPAID';
66
67
68 g_log_lead_referral_category CONSTANT VARCHAR2(20) := 'REFERRAL';
69
70 TYPE t_overriding_usernames IS TABLE OF VARCHAR2(100) INDEX BY BINARY_INTEGER;
71
72 G_MISS_OVER_USERNAMES_TBL t_overriding_usernames;
73
74 -- PROCEDURE
75 -- NotifyParty
76 --
77 -- PURPOSE
78 -- Notify the partner based on the lead status.
79 --
80 -- PARAMETERS
81 -- p_lead_id: the record with new items.
82 -- p_salesforce_id: sales force id
83 -- p_overriding_user : list of usernames who should be sent the
84 -- notifications
85 --
86 --
87 -- NOTES
88 -- 1. Raise exception if the object_version_number doesn't match.
89 -- 2. If an attribute is passed in as FND_API.g_miss_char/num/date,
90 -- that column won't be updated.
91 ----------------------------------------------------------------------
92
93 PROCEDURE Notify_Party (
94 p_api_version IN NUMBER := 1.0
95 ,p_init_msg_list IN VARCHAR2 := FND_API.g_false
96 ,p_commit IN VARCHAR2 := FND_API.g_false
97 ,p_validation_level IN NUMBER := FND_API.g_valid_level_full
98 ,p_lead_id IN NUMBER
99 ,p_lead_status IN VARCHAR2
100 ,p_salesforce_id IN NUMBER
101 ,p_overriding_usernames IN t_overriding_usernames default G_MISS_OVER_USERNAMES_TBL
102 ,x_msg_count OUT NOCOPY NUMBER
103 ,x_msg_data OUT NOCOPY VARCHAR2
104 ,x_return_status OUT NOCOPY VARCHAR2
105 );
106
107
108 -- PROCEDURE
109 -- Update_sales_referral_lead
110 --
111 -- PURPOSE
112 -- Update sales lead from referral screen.
113 --
114 -- PARAMETERS
115
116 --
117 -- NOTES
118 --
119 ----------------------------------------------------------------------
120 PROCEDURE Update_sales_referral_lead(
121 P_Api_Version_Number IN NUMBER,
122 P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
123 P_Commit IN VARCHAR2 := FND_API.G_FALSE,
124 P_Validation_Level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
125 P_Check_Access_Flag IN VARCHAR2 := FND_API.G_MISS_CHAR,
126 P_Admin_Flag IN VARCHAR2 := FND_API.G_MISS_CHAR,
127 P_Admin_Group_Id IN NUMBER := FND_API.G_MISS_NUM,
128 P_identity_salesforce_id IN NUMBER := FND_API.G_MISS_NUM,
129 P_Sales_Lead_Profile_Tbl IN AS_UTILITY_PUB.Profile_Tbl_Type := AS_UTILITY_PUB.G_MISS_PROFILE_TBL,
130 P_SALES_LEAD_Rec IN AS_SALES_LEADS_PUB.SALES_LEAD_Rec_Type
131 DEFAULT AS_SALES_LEADS_PUB.G_MISS_SALES_LEAD_REC,
132 p_overriding_usernames IN t_overriding_usernames,
133 X_Return_Status OUT NOCOPY VARCHAR2,
134 X_Msg_Count OUT NOCOPY NUMBER,
135 X_Msg_Data OUT NOCOPY VARCHAR2
136 );
137
138
139
140 PROCEDURE AS_LEAD_NOTIFY(
141 itemtype in varchar2,
142 itemkey in varchar2,
143 actid in number,
144 funcmode in varchar2,
145 resultout IN OUT NOCOPY varchar2
146 );
147
148
149 /* This procedure is called from the workflow process to decide whether to send notification to partner*/
150 PROCEDURE SEND_PTNR_NTF(
151 itemtype in varchar2,
152 itemkey in varchar2,
153 actid in number,
154 funcmode in varchar2,
155 resultout IN OUT NOCOPY varchar2
156 );
157
158
159 END AS_SALES_LEAD_REFERRAL;
160