[Home] [Help]
PACKAGE BODY: APPS.PV_REFERRAL_DQM_PUB
Source
1 package body PV_REFERRAL_DQM_PUB as
2 /* $Header: pvxvdqmb.pls 115.0 2003/12/12 01:51:17 amaram noship $*/
3
4 /*************************************************************************************/
5 /* */
6 /* */
7 /* */
8 /* Global Variable Declaration */
9 /* */
10 /* */
11 /* */
12 /*************************************************************************************/
13 g_log_to_file VARCHAR2(5) := 'N';
14 g_pkg_name VARCHAR2(30) := 'PV_REFERRAL_DQM_PUB';
15 g_api_name VARCHAR2(30);
16 g_RETCODE VARCHAR2(10) := '0';
17 g_module_name VARCHAR2(48);
18
19
20 PV_DEBUG_HIGH_ON boolean :=
21 FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_HIGH);
22 PV_DEBUG_LOW_ON boolean :=
23 FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW);
24 PV_DEBUG_MEDIUM_ON boolean :=
25 FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_MEDIUM);
26 PV_DEBUG_ERROR_ON boolean :=
27 FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_ERROR);
28
29
30
31 /*************************************************************************************/
32 /* */
33 /* */
34 /* */
35 /* private procedure declaration */
36 /* */
37 /* */
38 /* */
39 /*************************************************************************************/
40 PROCEDURE Debug(
41 p_msg_string IN VARCHAR2,
42 p_msg_type IN VARCHAR2 := 'PV_DEBUG_MESSAGE',
43 p_token_type IN VARCHAR2 := 'TEXT',
44 p_statement_level IN NUMBER := FND_LOG.LEVEL_PROCEDURE
45 );
46
47 PROCEDURE Set_Message(
48 p_msg_level IN NUMBER,
49 p_msg_name IN VARCHAR2,
50 p_token1 IN VARCHAR2 := NULL,
51 p_token1_value IN VARCHAR2 := NULL,
52 p_token2 IN VARCHAR2 := NULL ,
53 p_token2_value IN VARCHAR2 := NULL,
54 p_token3 IN VARCHAR2 := NULL,
55 p_token3_value IN VARCHAR2 := NULL
56 );
57
58
59
60 --=============================================================================+
61 --| Public Procedure |
62 --| Create_Lead_Opportunity |
63 --| |
64 --| Parameters |
65 --| IN |
66 --| OUT |
67 --| |
68 --| |
69 --| NOTES |
70 --| |
71 --| HISTORY |
72 --| |
73 --==============================================================================
74 PROCEDURE Create_Lead_Opportunity (
75 p_api_version IN NUMBER,
76 p_init_msg_list IN VARCHAR2 := FND_API.g_false,
77 p_commit IN VARCHAR2 := FND_API.g_false,
78 p_validation_level IN NUMBER := FND_API.g_valid_level_full,
79 p_referral_id IN NUMBER,
80 p_customer_party_id IN NUMBER := NULL,
81 p_customer_party_site_id IN NUMBER := NULL,
82 p_customer_org_contact_id IN NUMBER := NULL,
83 p_customer_contact_party_id IN NUMBER := NULL,
84 p_get_from_db_flag IN VARCHAR2 := 'Y',
85 x_entity_type OUT NOCOPY VARCHAR2,
86 x_entity_id OUT NOCOPY 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 l_api_version NUMBER := 1;
93 l_benefit_type VARCHAR2(30);
94 l_sales_transaction_type VARCHAR2(30);
95
96
97
98 BEGIN
99 g_api_name := 'Create_Lead_Opportunity';
100
101 -------------------- initialize -------------------------
102 IF FND_API.to_boolean(p_init_msg_list) THEN
103 FND_MSG_PUB.initialize;
104 END IF;
105
106 IF NOT FND_API.compatible_api_call(
107 l_api_version,
108 p_api_version,
109 g_api_name,
110 g_pkg_name
111 ) THEN
112 RAISE FND_API.g_exc_unexpected_error;
113 END IF;
114
115 x_return_status := FND_API.G_RET_STS_SUCCESS;
116
117
118
119 Debug('user_id : ' || fnd_global.user_id());
120 Debug('resp_id : ' || fnd_global.resp_id());
121 Debug('appl_id : ' || fnd_global.resp_appl_id());
122
123
124 Debug('Return Status: ' || x_return_status);
125
126 IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
127 RAISE FND_API.G_EXC_ERROR;
128
129 ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
130 RAISE FND_API.g_exc_unexpected_error;
131 END IF;
132
133
134
135 -------------------- Exception --------------------------
136 EXCEPTION
137 WHEN FND_API.G_EXC_ERROR THEN
138 ROLLBACK;
139 x_return_status := FND_API.G_RET_STS_ERROR;
140 FND_MSG_PUB.Count_And_Get( p_encoded => FND_API.G_FALSE,
141 p_count => x_msg_count,
142 p_data => x_msg_data);
143
144 WHEN FND_API.g_exc_unexpected_error THEN
145 ROLLBACK;
146 x_return_status := FND_API.g_ret_sts_unexp_error;
147 FND_MSG_PUB.count_and_get(
148 p_encoded => FND_API.g_false,
149 p_count => x_msg_count,
150 p_data => x_msg_data
151 );
152
153 WHEN OTHERS THEN
154 ROLLBACK;
155 IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
156 FND_MSG_PUB.add_exc_msg(g_pkg_name, g_api_name);
157 END IF;
158
159 x_return_status := FND_API.G_RET_STS_ERROR;
160 FND_MSG_PUB.count_and_get(
161 p_encoded => FND_API.g_false,
162 p_count => x_msg_count,
163 p_data => x_msg_data
164 );
165
166 END;
167 -- ======================End of Create_Lead_Opportunity==========================
168
169
170 --=============================================================================+
171 --| Private Procedure |
172 --| |
173 --| Debug |
174 --| |
175 --| Parameters |
176 --| IN |
177 --| OUT |
178 --| |
179 --| |
180 --| NOTES: |
181 --| |
182 --| HISTORY |
183 --| |
184 --==============================================================================
185 PROCEDURE Debug(
186 p_msg_string IN VARCHAR2,
187 p_msg_type IN VARCHAR2 := 'PV_DEBUG_MESSAGE',
188 p_token_type IN VARCHAR2 := 'TEXT',
189 p_statement_level IN NUMBER := FND_LOG.LEVEL_PROCEDURE
190 )
191 IS
192 BEGIN
193 IF (PV_DEBUG_LOW_ON) THEN
194 FND_MESSAGE.Set_Name('PV', p_msg_type);
195 FND_MESSAGE.Set_Token(p_token_type, p_msg_string);
196
197 IF (g_log_to_file = 'N') THEN
198 FND_MSG_PUB.Add;
199
200 ELSIF (g_log_to_file = 'Y') THEN
201 FND_FILE.PUT_LINE( FND_FILE.LOG, fnd_message.get );
202 END IF;
203 END IF;
204
205 IF (p_statement_level >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
206 FND_LOG.STRING(p_statement_level,
207 'pv.plsql.' || g_pkg_name || '.' || g_api_name,
208 p_msg_string
209 );
210 END IF;
211 END Debug;
212 -- =================================End of Debug================================
213
214
215 --=============================================================================+
216 --| Public Procedure |
217 --| |
218 --| Set_Message |
219 --| |
220 --| Parameters |
221 --| IN |
222 --| OUT |
223 --| |
224 --| |
225 --| NOTES: |
226 --| |
227 --| HISTORY |
228 --| |
229 --==============================================================================
230 PROCEDURE Set_Message(
231 p_msg_level IN NUMBER,
232 p_msg_name IN VARCHAR2,
233 p_token1 IN VARCHAR2 := NULL,
234 p_token1_value IN VARCHAR2 := NULL,
235 p_token2 IN VARCHAR2 := NULL ,
236 p_token2_value IN VARCHAR2 := NULL,
237 p_token3 IN VARCHAR2 := NULL,
238 p_token3_value IN VARCHAR2 := NULL
239 )
240 IS
241 BEGIN
242 -- --------------------------------------------------------------------------
243 -- 11.5.10 debug - messages logged to fnd_log_messages table.
244 -- --------------------------------------------------------------------------
245 IF (FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
246 FND_MESSAGE.Set_Name('PV', p_msg_name);
247
248 IF (p_token1 IS NOT NULL) THEN
249 FND_MESSAGE.Set_Token(p_token1, p_token1_value);
250 END IF;
251
252 IF (p_token2 IS NOT NULL) THEN
253 FND_MESSAGE.Set_Token(p_token2, p_token2_value);
254 END IF;
255
256 IF (p_token3 IS NOT NULL) THEN
257 FND_MESSAGE.Set_Token(p_token3, p_token3_value);
258 END IF;
259
260
261 FND_LOG.MESSAGE(FND_LOG.LEVEL_ERROR,
262 'pv.plsql.' || g_pkg_name || '.' || g_api_name,
263 FALSE
264 );
265 END IF;
266
267 -- --------------------------------------------------------------------------
268 -- Pre-11.5.10 debug message
269 -- --------------------------------------------------------------------------
270 FND_MESSAGE.Set_Name('PV', p_msg_name);
271
272 IF (p_token1 IS NOT NULL) THEN
273 FND_MESSAGE.Set_Token(p_token1, p_token1_value);
274 END IF;
275
276 IF (p_token2 IS NOT NULL) THEN
277 FND_MESSAGE.Set_Token(p_token2, p_token2_value);
278 END IF;
279
280 IF (p_token3 IS NOT NULL) THEN
281 FND_MESSAGE.Set_Token(p_token3, p_token3_value);
282 END IF;
283
284 FND_MSG_PUB.Add;
285 END Set_Message;
286 -- ==============================End of Set_Message==============================
287
288
289 END PV_REFERRAL_DQM_PUB;