[Home] [Help]
PACKAGE BODY: APPS.ASN_SALES_PVT
Source
1 PACKAGE BODY ASN_SALES_PVT AS
2 /* $Header: asnvslsb.pls 120.2 2005/09/14 15:40:24 ujayaram noship $ */
3
4 PROCEDURE Lead_Process_After_Create (
5 P_Api_Version_Number IN NUMBER,
6 P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
7 p_Commit IN VARCHAR2 := FND_API.G_FALSE,
8 p_Validation_Level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
9 P_Identity_Salesforce_Id IN NUMBER,
10 P_Salesgroup_id IN NUMBER,
11 P_Sales_Lead_Id IN NUMBER,
12 X_Return_Status OUT NOCOPY VARCHAR2,
13 X_Msg_Count OUT NOCOPY NUMBER,
14 X_Msg_Data OUT NOCOPY VARCHAR2
15 )
16 IS
17 G_PROC_NAME VARCHAR2(200) := 'asn.plsql.ASN_SALES_PVT.Lead_Process_After_Create';
18 G_PROC_LEVEL NUMBER := FND_LOG.LEVEL_PROCEDURE;
19 G_STMT_LEVEL NUMBER := FND_LOG.LEVEL_STATEMENT;
20 G_DEBUG_LEVEL NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
21
22 BEGIN
23 IF (G_PROC_LEVEL >= G_DEBUG_LEVEL)
24 THEN
25 FND_LOG.String(G_PROC_LEVEL,
26 G_PROC_NAME,
27 'begin');
28 END IF;
29
30 IF (G_STMT_LEVEL >= G_DEBUG_LEVEL)
31 THEN
32 FND_LOG.String(G_STMT_LEVEL,
33 G_PROC_NAME,
34 'Calling AS_SALES_LEADS_PUB.Lead_Process_After_Create...');
35 END IF;
36
37 /* Call Post Lead Update Process API */
38 AS_SALES_LEADS_PUB.Lead_Process_After_Create(
39 P_Api_Version_Number => p_api_version_number
40 , P_Init_Msg_List => p_init_msg_list
41 , p_Commit => p_commit
42 , p_Validation_Level => p_validation_level
43 , P_Check_Access_Flag => 'N'
44 , p_Admin_Flag => NULL
45 , P_Admin_Group_Id => NULL
46 , P_Identity_Salesforce_Id => p_identity_salesforce_id
47 , P_Salesgroup_id => p_salesgroup_id
48 , P_Sales_Lead_Id => p_sales_lead_id
49 , X_Return_Status => x_return_status
50 , X_Msg_Count => x_msg_count
51 , X_Msg_Data => x_msg_data);
52
53 IF (G_STMT_LEVEL >= G_DEBUG_LEVEL)
54 THEN
55 FND_LOG.String(G_STMT_LEVEL,
56 G_PROC_NAME,
57 'Returning from AS_SALES_LEADS_PUB.Lead_Process_After_Create' ||
58 ', To remove duplicate access records. ');
59 END IF;
60
61
62 IF (G_STMT_LEVEL >= G_DEBUG_LEVEL)
63 THEN
64 FND_LOG.String(G_STMT_LEVEL,
65 G_PROC_NAME,
66 'After Create: Delete duplicate access records on auto conversion.');
67 END IF;
68
69
70 IF (G_PROC_LEVEL >= G_DEBUG_LEVEL)
71 THEN
72 FND_LOG.String(G_PROC_LEVEL,
73 G_PROC_NAME,
74 'end');
75 END IF;
76
77 END Lead_Process_After_Create;
78
79 PROCEDURE Lead_Process_After_Update (
80 P_Api_Version_Number IN NUMBER,
81 P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
82 p_Commit IN VARCHAR2 := FND_API.G_FALSE,
83 p_Validation_Level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
84 P_Identity_Salesforce_Id IN NUMBER,
85 P_Salesgroup_id IN NUMBER,
86 P_Sales_Lead_Id IN NUMBER,
87 X_Return_Status OUT NOCOPY VARCHAR2,
88 X_Msg_Count OUT NOCOPY NUMBER,
89 X_Msg_Data OUT NOCOPY VARCHAR2
90 )
91 IS
92 G_PROC_NAME VARCHAR2(200) := 'asn.plsql.ASN_SALES_PVT.Lead_Process_After_Update';
93 G_PROC_LEVEL NUMBER := FND_LOG.LEVEL_PROCEDURE;
94 G_STMT_LEVEL NUMBER := FND_LOG.LEVEL_STATEMENT;
95 G_DEBUG_LEVEL NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
96
97 BEGIN
98 IF (G_PROC_LEVEL >= G_DEBUG_LEVEL)
99 THEN
100 FND_LOG.String(G_PROC_LEVEL,
101 G_PROC_NAME,
102 'begin');
103 END IF;
104
105 IF (G_STMT_LEVEL >= G_DEBUG_LEVEL)
106 THEN
107 FND_LOG.String(G_STMT_LEVEL,
108 G_PROC_NAME,
109 'Calling AS_SALES_LEADS_PUB.Lead_Process_After_Update...');
110 END IF;
111
112 /* Call Post Lead Update Process API */
113 AS_SALES_LEADS_PUB.Lead_Process_After_Update(
114 P_Api_Version_Number => p_api_version_number
115 , P_Init_Msg_List => p_init_msg_list
116 , p_Commit => p_commit
117 , p_Validation_Level => p_validation_level
118 , P_Check_Access_Flag => 'N'
119 , p_Admin_Flag => NULL
120 , P_Admin_Group_Id => NULL
121 , P_Identity_Salesforce_Id => p_identity_salesforce_id
122 , P_Salesgroup_id => p_salesgroup_id
123 , P_Sales_Lead_Id => p_sales_lead_id
124 , X_Return_Status => x_return_status
125 , X_Msg_Count => x_msg_count
126 , X_Msg_Data => x_msg_data);
127
128 IF (G_STMT_LEVEL >= G_DEBUG_LEVEL)
129 THEN
130 FND_LOG.String(G_STMT_LEVEL,
131 G_PROC_NAME,
132 'Returning from AS_SALES_LEADS_PUB.Lead_Process_After_Update' ||
133 ', To remove duplicate access records. ');
134 END IF;
135
136 IF (G_STMT_LEVEL >= G_DEBUG_LEVEL)
137 THEN
138 FND_LOG.String(G_STMT_LEVEL,
139 G_PROC_NAME,
140 'After Update: Delete duplicate access records on auto conversion. ');
141 END IF;
142
143 IF (G_PROC_LEVEL >= G_DEBUG_LEVEL)
144 THEN
145 FND_LOG.String(G_PROC_LEVEL,
146 G_PROC_NAME,
147 'end');
148 END IF;
149
150 END Lead_Process_After_Update;
151
152 PROCEDURE Opp_Terr_Assignment (
153 P_Api_Version_Number IN NUMBER,
154 P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
155 p_Commit IN VARCHAR2 := FND_API.G_FALSE,
156 P_Lead_Id IN NUMBER,
157 X_Return_Status OUT NOCOPY VARCHAR2,
158 X_Msg_Count OUT NOCOPY NUMBER,
159 X_Msg_Data OUT NOCOPY VARCHAR2
160 )
161 IS
162 G_PROC_NAME VARCHAR2(200) := 'asn.plsql.ASN_SALES_PVT.Opp_Terr_Assignment';
163 G_PROC_LEVEL NUMBER := FND_LOG.LEVEL_PROCEDURE;
164 G_STMT_LEVEL NUMBER := FND_LOG.LEVEL_STATEMENT;
165 G_DEBUG_LEVEL NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
166
167 BEGIN
168 IF (G_PROC_LEVEL >= G_DEBUG_LEVEL)
169 THEN
170 FND_LOG.String(G_PROC_LEVEL,
171 G_PROC_NAME,
172 'begin');
173 END IF;
174
175 IF (G_STMT_LEVEL >= G_DEBUG_LEVEL)
176 THEN
177 FND_LOG.String(G_STMT_LEVEL,
178 G_PROC_NAME,
179 'Calling AS_OPP_TERRASSIGNMENT_PVT.Opp_Terr_Assignment...');
180 END IF;
181
182 /* Call TAP Engine API */
183 AS_RTTAP_OPPTY.RTTAP_WRAPPER
184 (p_api_version_number => p_api_version_number,
185 p_init_msg_list => p_init_msg_list,
186 p_commit => p_commit,
187 p_lead_id => p_lead_id,
188 x_return_status => x_return_status,
189 x_msg_count => x_msg_count,
190 x_msg_data => x_msg_data);
191
192
193 IF (G_STMT_LEVEL >= G_DEBUG_LEVEL)
194 THEN
195 FND_LOG.String(G_STMT_LEVEL,
196 G_PROC_NAME,
197 'Returning from AS_OPP_TERRASSIGNMENT_PVT.Opp_Terr_Assignment. '||
198 'To remove duplicate access records.');
199 END IF;
200
201
202 IF (G_PROC_LEVEL >= G_DEBUG_LEVEL)
203 THEN
204 FND_LOG.String(G_PROC_LEVEL,
205 G_PROC_NAME,
206 'end');
207 END IF;
208
209 END Opp_Terr_Assignment;
210
211 END ASN_SALES_PVT;