1 PACKAGE AS_SALES_LEAD_ASSIGN_PVT AUTHID CURRENT_USER as
2 /* $Header: asxvslas.pls 115.15 2004/05/07 02:02:12 solin ship $ */
3 -- Start of Comments
4 -- Package name : AS_SALES_LEAD_ASSIGN_PVT
5 -- Purpose : Sales Leads Assignment
6 -- NOTE :
7 -- History :
8 -- 04/09/2001 FFANG Created.
9 -- 04/30/2001 SOLIN Change for real time assignment and sales lead
10 -- sales team.
11 -- 09/06/2001 SOLIN Enhancement bug 1963262.
12 -- Owner can decline sales lead.
13 -- 12/10/2001 SOLIN Bug 2102901.
14 -- Add salesgroup_id for current user in
15 -- Build_Lead_Sales_Team and Rebuild_Lead_Sales_Team
16 -- 11/22/2002 SOLIN Change for NOCOPY.
17 -- 03/14/2003 SOLIN Bug 2852597
18 -- Port 11.5.8 fix to 11.5.9.
19 -- 04/23/2003 SOLIN Bug 2921105
20 -- Add channel_code in lead trigger.
21 --
22 -- End of Comments
23
24
25 PROCEDURE Assign_Sales_Lead (
26 P_Api_Version_Number IN NUMBER,
27 P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
28 p_commit IN VARCHAR2 := FND_API.G_FALSE,
29 p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
30 P_Check_Access_Flag IN VARCHAR2 := FND_API.G_MISS_CHAR,
31 P_Admin_Flag IN VARCHAR2 := FND_API.G_MISS_CHAR,
32 P_Admin_Group_Id IN NUMBER := FND_API.G_MISS_NUM,
33 P_identity_salesforce_id IN NUMBER := FND_API.G_MISS_NUM,
34 P_Sales_Lead_Profile_Tbl IN AS_UTILITY_PUB.Profile_Tbl_Type
35 := AS_UTILITY_PUB.G_MISS_PROFILE_TBL,
36 P_resource_type IN VARCHAR2 DEFAULT NULL,
37 P_role IN VARCHAR2 DEFAULT NULL,
38 P_no_of_resources IN NUMBER DEFAULT 1,
39 P_auto_select_flag IN VARCHAR2 DEFAULT NULL,
40 P_effort_duration IN NUMBER DEFAULT NULL,
41 P_effort_uom IN VARCHAR2 DEFAULT NULL,
42 P_start_date IN DATE DEFAULT NULL,
43 P_end_date IN DATE DEFAULT NULL,
44 P_territory_flag IN VARCHAR2 DEFAULT 'Y',
45 P_calendar_flag IN VARCHAR2 DEFAULT 'Y',
46 P_Sales_Lead_Id IN NUMBER,
47 X_Return_Status OUT NOCOPY VARCHAR2,
48 X_Msg_Count OUT NOCOPY NUMBER,
49 X_Msg_Data OUT NOCOPY VARCHAR2,
50 X_Assign_Id_Tbl OUT NOCOPY AS_SALES_LEADS_PUB.Assign_Id_Tbl_Type
51 );
52
53
54 PROCEDURE CALL_WF_TO_ASSIGN (
55 P_Api_Version_Number IN NUMBER,
56 P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
57 p_commit IN VARCHAR2 := FND_API.G_FALSE,
58 P_Sales_Lead_Id IN NUMBER,
59 P_assigned_resource_id IN NUMBER DEFAULT NULL,
60 X_Return_Status OUT NOCOPY VARCHAR2,
61 X_Msg_Count OUT NOCOPY NUMBER,
62 X_Msg_Data OUT NOCOPY VARCHAR2
63 );
64
65
66 PROCEDURE Build_Lead_Sales_Team (
67 P_Api_Version_Number IN NUMBER,
68 P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
69 p_Commit IN VARCHAR2 := FND_API.G_FALSE,
70 p_Validation_Level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
71 P_Admin_Group_Id IN NUMBER := FND_API.G_MISS_NUM,
72 P_identity_salesforce_id IN NUMBER := FND_API.G_MISS_NUM,
73 P_Salesgroup_id IN NUMBER := FND_API.G_MISS_NUM,
74 P_Sales_Lead_Id IN NUMBER,
75 X_Request_Id OUT NOCOPY NUMBER,
76 X_Return_Status OUT NOCOPY VARCHAR2,
77 X_Msg_Count OUT NOCOPY NUMBER,
78 X_Msg_Data OUT NOCOPY VARCHAR2
79 );
80
81
82 PROCEDURE Rebuild_Lead_Sales_Team (
83 P_Api_Version_Number IN NUMBER,
84 P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
85 p_Commit IN VARCHAR2 := FND_API.G_FALSE,
86 p_Validation_Level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
87 P_Admin_Group_Id IN NUMBER := FND_API.G_MISS_NUM,
88 P_identity_salesforce_id IN NUMBER := FND_API.G_MISS_NUM,
89 P_Salesgroup_id IN NUMBER := FND_API.G_MISS_NUM,
90 P_Sales_Lead_Id IN NUMBER,
91 X_Request_Id OUT NOCOPY NUMBER,
92 X_Return_Status OUT NOCOPY VARCHAR2,
93 X_Msg_Count OUT NOCOPY NUMBER,
94 X_Msg_Data OUT NOCOPY VARCHAR2
95 );
96
97 -- The following are private API without conuterpart public API.
98
99 PROCEDURE Sales_Leads_Trigger_Handler(
100 P_Customer_Id IN NUMBER,
101 P_Sales_Lead_Id IN NUMBER,
102 P_Old_Address_Id IN NUMBER,
103 P_Old_Budget_Amount IN NUMBER,
104 P_Old_Currency_Code IN VARCHAR2,
105 P_Old_Source_Promotion_Id IN NUMBER,
106 P_Old_Channel_Code IN VARCHAR2,
107 P_New_Address_Id IN NUMBER,
108 P_New_Budget_Amount IN NUMBER,
109 P_New_Currency_Code IN VARCHAR2,
110 P_New_Source_Promotion_Id IN NUMBER,
111 P_New_Channel_Code IN VARCHAR2,
112 P_New_Assign_To_Salesforce_Id IN NUMBER,
113 P_New_Reject_Reason_Code IN VARCHAR2,
114 P_Trigger_Mode IN VARCHAR2);
115
116 PROCEDURE Sales_Lead_Lines_Handler(
117 P_Sales_Lead_Id IN NUMBER,
118 P_Old_category_Id IN NUMBER,
119 P_Old_category_set_Id IN NUMBER,
120 P_Old_Inventory_Item_Id IN NUMBER,
121 P_Old_Purchase_Amount IN NUMBER,
122 P_New_category_Id IN NUMBER,
123 P_New_category_set_Id IN NUMBER,
124 P_New_Inventory_Item_Id IN NUMBER,
125 P_New_Purchase_Amount IN NUMBER,
126 P_Trigger_Mode IN VARCHAR2);
127
128 PROCEDURE Set_Default_Lead_Owner(
129 p_sales_lead_id IN NUMBER,
130 p_salesgroup_id IN NUMBER,
131 p_request_id IN NUMBER,
132 X_Return_Status OUT NOCOPY VARCHAR2,
133 X_Msg_Count OUT NOCOPY NUMBER,
134 X_Msg_Data OUT NOCOPY VARCHAR2);
135
136 PROCEDURE Find_Lead_Owner(
137 P_Sales_Lead_Id IN NUMBER,
138 P_Salesgroup_Id IN NUMBER,
139 P_Request_Id IN NUMBER,
140 X_Return_Status OUT NOCOPY VARCHAR2,
141 X_Msg_Count OUT NOCOPY NUMBER,
142 X_Msg_Data OUT NOCOPY VARCHAR2);
143
144 PROCEDURE Process_Access_Record(
145 P_Sales_Lead_Id IN NUMBER,
146 P_Request_Id IN NUMBER);
147
148 End AS_SALES_LEAD_ASSIGN_PVT;