[Home] [Help]
PACKAGE BODY: APPS.AML_MONITOR_LOG_PVT
Source
1 PACKAGE BODY AML_Monitor_Log_PVT as
2 /* $Header: amlvlmlb.pls 115.1 2003/01/20 18:37:37 swkhanna ship $ */
3 -- ===============================================================
4 -- Start of Comments
5 -- Package name AML_Monitor_Log_PVT
6 -- History
7 -- 11-27-2002 sujrama created
8 -- ===============================================================
9 G_PKG_NAME CONSTANT VARCHAR2(30):= 'AML_Monitor_Log_PVT';
10 G_FILE_NAME CONSTANT VARCHAR2(12) := 'amlvlmlb.pls';
11
12
13 AS_DEBUG_HIGH_ON boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_HIGH);
14 AS_DEBUG_LOW_ON boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW);
15 AS_DEBUG_MEDIUM_ON boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_MEDIUM);
16 AS_DEBUG_ERROR_ON boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_ERROR);
17
18 PROCEDURE Create_Monitor_Log(
19 p_api_version_number IN NUMBER
20 ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
21 ,p_commit IN VARCHAR2 := FND_API.G_FALSE
22 ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
23 ,p_monitor_log_rec IN monitor_log_rec_type := g_miss_monitor_log_rec
24 ,x_monitor_log_id OUT NOCOPY NUMBER
25 ,x_return_status OUT NOCOPY VARCHAR2
26 ,x_msg_count OUT NOCOPY NUMBER
27 ,x_msg_data OUT NOCOPY VARCHAR2
28 )
29 IS
30 L_API_NAME CONSTANT VARCHAR2(30) := 'Create_Monitor_Log';
31 L_API_VERSION_NUMBER CONSTANT NUMBER := 2.0;
32 l_return_status_full VARCHAR2(1);
33 l_object_version_number NUMBER := 1;
34 l_org_id NUMBER ; --:= FND_API.G_MISS_NUM;
35 l_monitor_log_id NUMBER;
36 l_dummy NUMBER;
37 CURSOR c_id IS
38 SELECT aml_monitor_log_s.NEXTVAL
39 FROM dual;
40 CURSOR c_id_exists (l_id IN NUMBER) IS
41 SELECT 1
42 FROM AML_MONITOR_LOG
43 WHERE monitor_log_id = l_id;
44 BEGIN
45 -- Standard Start of API savepoint
46 SAVEPOINT create_monitor_log_pvt;
47 -- Standard call to check for call compatibility.
48 IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
49 p_api_version_number,
50 l_api_name,
51 G_PKG_NAME)
52 THEN
53 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
54 END IF;
55
56 -- Initialize message list if p_init_msg_list is set to TRUE.
57 IF FND_API.to_Boolean( p_init_msg_list )
58 THEN
59 FND_MSG_PUB.initialize;
60 END IF;
61 -- Debug Message
62 IF (AS_DEBUG_LOW_ON) THEN
63 AS_UTILITY_PVT.debug_message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'Private API: ' || l_api_name || 'start');
64 END IF;
65
66
67 -- Initialize API return status to SUCCESS
68 x_return_status := FND_API.G_RET_STS_SUCCESS;
69
70 IF FND_GLOBAL.User_Id IS NULL THEN
71 IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
72 FND_MESSAGE.Set_Name('AMS', 'UT_CANNOT_GET_PROFILE_VALUE');
73 FND_MESSAGE.Set_Token('PROFILE', 'USER_ID', FALSE);
74 FND_MSG_PUB.ADD;
75 END IF;
76 RAISE FND_API.G_EXC_ERROR;
77 END IF;
78
79 IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
80 RAISE FND_API.G_EXC_ERROR;
81 END IF;
82
83 -- Debug Message
84 IF (AS_DEBUG_LOW_ON) THEN
85 AS_UTILITY_PVT.debug_message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'Private API: Calling create table handler');
86 END IF;
87
88 -- Invoke table handler(As_Monitor_Log_Pkg.Insert_Row)
89 Aml_Monitor_Log_Pkg.Insert_Row(
90 px_monitor_log_id => l_monitor_log_id,
91 -- p_monitor_execution_id => p_monitor_log_rec.monitor_execution_id,
92 p_last_update_date => SYSDATE,
93 p_last_updated_by => FND_GLOBAL.USER_ID,
94 p_creation_date => SYSDATE,
95 p_created_by => FND_GLOBAL.USER_ID,
96 p_last_update_login => FND_GLOBAL.conc_login_id,
97 p_object_version_number => l_object_version_number,
98 p_request_id => p_monitor_log_rec.request_id,
99 p_program_application_id => p_monitor_log_rec.program_application_id,
100 p_program_id => p_monitor_log_rec.program_id,
101 p_program_update_date => p_monitor_log_rec.program_update_date,
102 p_monitor_condition_id => p_monitor_log_rec.monitor_condition_id,
103 p_recipient_role => p_monitor_log_rec.recipient_role,
104 p_monitor_action => p_monitor_log_rec.monitor_action,
105 p_recipient_resource_id => p_monitor_log_rec.recipient_resource_id,
106 p_sales_lead_id => p_monitor_log_rec.sales_lead_id,
107 p_attribute_category => p_monitor_log_rec.attribute_category,
108 p_attribute1 => p_monitor_log_rec.attribute1,
109 p_attribute2 => p_monitor_log_rec.attribute2,
110 p_attribute3 => p_monitor_log_rec.attribute3,
111 p_attribute4 => p_monitor_log_rec.attribute4,
112 p_attribute5 => p_monitor_log_rec.attribute5,
113 p_attribute6 => p_monitor_log_rec.attribute6,
114 p_attribute7 => p_monitor_log_rec.attribute7,
115 p_attribute8 => p_monitor_log_rec.attribute8,
116 p_attribute9 => p_monitor_log_rec.attribute9,
117 p_attribute10 => p_monitor_log_rec.attribute10,
118 p_attribute11 => p_monitor_log_rec.attribute11,
119 p_attribute12 => p_monitor_log_rec.attribute12,
120 p_attribute13 => p_monitor_log_rec.attribute13,
121 p_attribute14 => p_monitor_log_rec.attribute14,
122 p_attribute15 => p_monitor_log_rec.attribute15
123 );
124
125 x_monitor_log_id := l_monitor_log_id;
126 IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
127 RAISE FND_API.G_EXC_ERROR;
128 END IF;
129 --
130 -- End of API body
131 --
132 -- Standard check for p_commit
133 IF FND_API.to_Boolean( p_commit )
134 THEN
135 COMMIT WORK;
136 END IF;
137 -- Debug Message
138 IF (AS_DEBUG_LOW_ON) THEN
139 AS_UTILITY_PVT.debug_message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'Private API: ' || l_api_name || 'end');
140 END IF;
141
142 -- Standard call to get message count and if count is 1, get message info.
143 FND_MSG_PUB.Count_And_Get
144 (p_count => x_msg_count,
145 p_data => x_msg_data
146 );
147 EXCEPTION
148 WHEN FND_API.G_EXC_ERROR THEN
149 ROLLBACK TO CREATE_Monitor_Log_PVT;
150 x_return_status := FND_API.G_RET_STS_ERROR;
151 -- Standard call to get message count and if count=1, get the message
152 FND_MSG_PUB.Count_And_Get (
153 p_encoded => FND_API.G_FALSE,
154 p_count => x_msg_count,
155 p_data => x_msg_data
156 );
157 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
158 ROLLBACK TO CREATE_Monitor_Log_PVT;
159 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
160 -- Standard call to get message count and if count=1, get the message
161 FND_MSG_PUB.Count_And_Get (
162 p_encoded => FND_API.G_FALSE,
163 p_count => x_msg_count,
164 p_data => x_msg_data
165 );
166 WHEN OTHERS THEN
167 ROLLBACK TO CREATE_Monitor_Log_PVT;
168 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
169 IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
170 THEN
171 FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
172 END IF;
173 -- Standard call to get message count and if count=1, get the message
174 FND_MSG_PUB.Count_And_Get (
175 p_encoded => FND_API.G_FALSE,
176 p_count => x_msg_count,
177 p_data => x_msg_data
178 );
179 End Create_Monitor_Log;
180
181
182 PROCEDURE Update_Monitor_Log(
183 p_api_version_number IN NUMBER,
184 p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
185 p_commit IN VARCHAR2 := FND_API.G_FALSE,
186 p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
187 p_monitor_log_rec IN monitor_log_rec_type ,
188 x_return_status OUT NOCOPY VARCHAR2,
189 x_msg_count OUT NOCOPY NUMBER,
190 x_msg_data OUT NOCOPY VARCHAR2
191 )
192 IS
193 CURSOR c_get_monitor_log(monitor_log_id NUMBER) IS
194 SELECT *
195 FROM AML_MONITOR_LOG
196 WHERE monitor_log_id = p_monitor_log_rec.monitor_log_id;
197 L_API_NAME CONSTANT VARCHAR2(30) := 'Update_Monitor_Log';
198 L_API_VERSION_NUMBER CONSTANT NUMBER := 2.0;
199 -- Local Variables
200 l_object_version_number NUMBER;
201 l_monitor_log_id NUMBER;
202 l_ref_monitor_log_rec c_get_Monitor_Log%ROWTYPE ;
203 l_tar_monitor_log_rec monitor_log_rec_type := P_monitor_log_rec;
204 l_rowid ROWID;
205 BEGIN
206 -- Standard Start of API savepoint
207 SAVEPOINT update_monitor_log_pvt;
208 -- Standard call to check for call compatibility.
209 IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
210 p_api_version_number,
211 l_api_name,
212 G_PKG_NAME)
213 THEN
214 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
215 END IF;
216
217 -- Initialize message list if p_init_msg_list is set to TRUE.
218 IF FND_API.to_Boolean( p_init_msg_list )
219 THEN
220 FND_MSG_PUB.initialize;
221 END IF;
222
223 -- Debug Message
224 IF (AS_DEBUG_LOW_ON) THEN
225 AS_UTILITY_PVT.debug_message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'Private API: ' || l_api_name || 'start');
226 END IF;
227
228
229 -- Initialize API return status to SUCCESS
230 x_return_status := FND_API.G_RET_STS_SUCCESS;
231
232 -- Debug Message
233 IF (AS_DEBUG_LOW_ON) THEN
234 AS_UTILITY_PVT.debug_message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'Private API: - Open Cursor to Select');
235 END IF;
236
237 OPEN c_get_Monitor_Log( l_tar_monitor_log_rec.monitor_log_id);
238 FETCH c_get_Monitor_Log INTO l_ref_monitor_log_rec ;
239 If ( c_get_Monitor_Log%NOTFOUND) THEN
240 IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
241 FND_MESSAGE.Set_Name('AMS', 'API_MISSING_UPDATE_TARGET');
242 FND_MESSAGE.Set_Token ('INFO', 'Monitor_log', FALSE);
243 FND_MSG_PUB.Add;
244 END IF;
245 RAISE FND_API.G_EXC_ERROR;
246 END IF;
247 -- Debug Message
248 IF (AS_DEBUG_LOW_ON) THEN
249 AS_UTILITY_PVT.debug_message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'Private API: - Close Cursor');
250 END IF;
251 CLOSE c_get_Monitor_Log;
252
253 If (l_tar_monitor_log_rec.last_update_date is NULL or
254 l_tar_monitor_log_rec.last_update_date = FND_API.G_MISS_DATE ) Then
255 IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
256 FND_MESSAGE.Set_Name('AMS', 'API_MISSING_ID');
257 FND_MESSAGE.Set_Token('COLUMN', 'Last_Update_Date', FALSE);
258 FND_MSG_PUB.ADD;
259 END IF;
260 raise FND_API.G_EXC_ERROR;
261 End if;
262
263 If (to_char(l_tar_monitor_log_rec.last_update_date,'DD-MON-RRRR') <> TO_CHAR(l_ref_monitor_log_rec.last_update_date,'DD-MON-RRRR')) Then
264 IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
265 FND_MESSAGE.Set_Name('AMS', 'API_RECORD_CHANGED');
266 FND_MESSAGE.Set_Token('INFO', 'Monitor_Log', FALSE);
267 FND_MSG_PUB.ADD;
268 END IF;
269 raise FND_API.G_EXC_ERROR;
270 End if;
271
272 IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
273 RAISE FND_API.G_EXC_ERROR;
274 END IF;
275 -- Debug Message
276 IF (AS_DEBUG_LOW_ON) THEN
277 AS_UTILITY_PVT.debug_message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'Private API: Calling update table handler');
278 END IF;
279 -- Invoke table handler(As_Monitor_Log_Pkg.Update_Row)
280 AML_Monitor_Log_Pkg.Update_Row(
281 p_monitor_log_id => p_monitor_log_rec.monitor_log_id,
282 -- p_monitor_execution_id => p_monitor_log_rec.monitor_execution_id,
283 p_last_update_date => SYSDATE,
284 p_last_updated_by => FND_GLOBAL.USER_ID,
285 p_CREATION_DATE => SYSDATE,
286 p_CREATED_BY => FND_GLOBAL.USER_ID,
287 p_last_update_login => FND_GLOBAL.conc_login_id,
288 p_object_version_number => p_monitor_log_rec.object_version_number,
289 p_request_id => p_monitor_log_rec.request_id,
290 p_program_application_id => p_monitor_log_rec.program_application_id,
291 p_program_id => p_monitor_log_rec.program_id,
292 p_program_update_date => p_monitor_log_rec.program_update_date,
293 p_monitor_condition_id => p_monitor_log_rec.monitor_condition_id,
294 p_recipient_role => p_monitor_log_rec.recipient_role,
295 p_monitor_action => p_monitor_log_rec.monitor_action,
296 p_recipient_resource_id => p_monitor_log_rec.recipient_resource_id,
297 p_sales_lead_id => p_monitor_log_rec.sales_lead_id,
298 p_attribute_category => p_monitor_log_rec.attribute_category,
299 p_attribute1 => p_monitor_log_rec.attribute1,
300 p_attribute2 => p_monitor_log_rec.attribute2,
301 p_attribute3 => p_monitor_log_rec.attribute3,
302 p_attribute4 => p_monitor_log_rec.attribute4,
303 p_attribute5 => p_monitor_log_rec.attribute5,
304 p_attribute6 => p_monitor_log_rec.attribute6,
305 p_attribute7 => p_monitor_log_rec.attribute7,
306 p_attribute8 => p_monitor_log_rec.attribute8,
307 p_attribute9 => p_monitor_log_rec.attribute9,
308 p_attribute10 => p_monitor_log_rec.attribute10,
309 p_attribute11 => p_monitor_log_rec.attribute11,
310 p_attribute12 => p_monitor_log_rec.attribute12,
311 p_attribute13 => p_monitor_log_rec.attribute13,
312 p_attribute14 => p_monitor_log_rec.attribute14,
313 p_attribute15 => p_monitor_log_rec.attribute15
314 );
315 --
316 -- End of API body.
317 --
318
319 -- Standard check for p_commit
320 IF FND_API.to_Boolean( p_commit )
321 THEN
322 COMMIT WORK;
323 END IF;
324
325 -- Debug Message
326 IF (AS_DEBUG_LOW_ON) THEN
327 AS_UTILITY_PVT.debug_message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'Private API: ' || l_api_name || 'end');
328 END IF;
329 -- Standard call to get message count and if count is 1, get message info.
330 FND_MSG_PUB.Count_And_Get
331 (p_count => x_msg_count,
332 p_data => x_msg_data
333 );
334 EXCEPTION
335 WHEN FND_API.G_EXC_ERROR THEN
336 ROLLBACK TO UPDATE_Monitor_Log_PVT;
337 x_return_status := FND_API.G_RET_STS_ERROR;
338 -- Standard call to get message count and if count=1, get the message
339 FND_MSG_PUB.Count_And_Get (
340 p_encoded => FND_API.G_FALSE,
341 p_count => x_msg_count,
342 p_data => x_msg_data
343 );
344 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
345 ROLLBACK TO UPDATE_Monitor_Log_PVT;
346 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
347 -- Standard call to get message count and if count=1, get the message
348 FND_MSG_PUB.Count_And_Get (
349 p_encoded => FND_API.G_FALSE,
350 p_count => x_msg_count,
351 p_data => x_msg_data
352 );
353 WHEN OTHERS THEN
354 ROLLBACK TO UPDATE_Monitor_Log_PVT;
358 FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
355 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
356 IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
357 THEN
359 END IF;
360 -- Standard call to get message count and if count=1, get the message
361 FND_MSG_PUB.Count_And_Get (
362 p_encoded => FND_API.G_FALSE,
363 p_count => x_msg_count,
364 p_data => x_msg_data
365 );
366 End Update_Monitor_Log;
367
368 PROCEDURE Delete_Monitor_Log(
369 p_api_version_number IN NUMBER,
370 p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
371 p_commit IN VARCHAR2 := FND_API.G_FALSE,
372 p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
373 p_monitor_log_id IN NUMBER,
374 x_return_status OUT NOCOPY VARCHAR2,
375 x_msg_count OUT NOCOPY NUMBER,
376 x_msg_data OUT NOCOPY VARCHAR2
377 )
378 IS
379 L_API_NAME CONSTANT VARCHAR2(30) := 'Delete_Monitor_Log';
380 L_API_VERSION_NUMBER CONSTANT NUMBER := 2.0;
381 l_object_version_number NUMBER;
382 BEGIN
383 -- Standard Start of API savepoint
384 SAVEPOINT delete_monitor_log_pvt;
385 -- Standard call to check for call compatibility.
386 IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
387 p_api_version_number,
388 l_api_name,
389 G_PKG_NAME)
390 THEN
391 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
392 END IF;
393 -- Initialize message list if p_init_msg_list is set to TRUE.
394 IF FND_API.to_Boolean( p_init_msg_list )
395 THEN
396 FND_MSG_PUB.initialize;
397 END IF;
398
399 -- Debug Message
400 IF (AS_DEBUG_LOW_ON) THEN
401 AS_UTILITY_PVT.debug_message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'Private API: ' || l_api_name || 'start');
402 END IF;
403
404 -- Initialize API return status to SUCCESS
405 x_return_status := FND_API.G_RET_STS_SUCCESS;
406 --
407 -- Api body
408 --
409 -- Debug Message
410 IF (AS_DEBUG_LOW_ON) THEN
411 AS_UTILITY_PVT.debug_message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'Private API: Calling delete table handler');
412 END IF;
413
414 -- Invoke table handler(As_Monitor_Log_Pkg.Delete_Row)
415 AMl_Monitor_Log_Pkg.Delete_Row(
416 p_monitor_log_id => p_monitor_log_id
417 --, p_object_version_number => p_object_version_number
418 );
419 --
420 -- End of API body
421 --
422 -- Standard check for p_commit
423 IF FND_API.to_Boolean( p_commit )
424 THEN
425 COMMIT WORK;
426 END IF;
427 -- Debug Message
428 IF (AS_DEBUG_LOW_ON) THEN
429 AS_UTILITY_PVT.debug_message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'Private API: ' || l_api_name || 'end');
430 END IF;
431 -- Standard call to get message count and if count is 1, get message info.
432 FND_MSG_PUB.Count_And_Get
433 (p_count => x_msg_count,
434 p_data => x_msg_data
435 );
436 EXCEPTION
437 WHEN FND_API.G_EXC_ERROR THEN
438 ROLLBACK TO DELETE_Monitor_Log_PVT;
439 x_return_status := FND_API.G_RET_STS_ERROR;
440 -- Standard call to get message count and if count=1, get the message
441 FND_MSG_PUB.Count_And_Get (
442 p_encoded => FND_API.G_FALSE,
443 p_count => x_msg_count,
444 p_data => x_msg_data
445 );
446 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
447 ROLLBACK TO DELETE_Monitor_Log_PVT;
448 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
449 -- Standard call to get message count and if count=1, get the message
450 FND_MSG_PUB.Count_And_Get (
451 p_encoded => FND_API.G_FALSE,
452 p_count => x_msg_count,
453 p_data => x_msg_data
454 );
455 WHEN OTHERS THEN
456 ROLLBACK TO DELETE_Monitor_Log_PVT;
457 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
458 IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
459 THEN
460 FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
461 END IF;
462 -- Standard call to get message count and if count=1, get the message
463 FND_MSG_PUB.Count_And_Get (
464 p_encoded => FND_API.G_FALSE,
465 p_count => x_msg_count,
466 p_data => x_msg_data
467 );
468 End Delete_Monitor_Log;
469 END AML_Monitor_Log_PVT;