[Home] [Help]
PACKAGE BODY: APPS.CSD_FLWSTS_TRAN_MILES_PVT
Source
1 PACKAGE BODY CSD_FLWSTS_TRAN_MILES_PVT as
2 /* $Header: csdvflmb.pls 120.1 2005/07/29 16:36:33 vkjain noship $ */
3
4 G_PKG_NAME CONSTANT VARCHAR2(30) := 'CSD_FLWSTS_TRAN_MILES_PVT';
5 G_FILE_NAME CONSTANT VARCHAR2(12) := 'csdvflmb.pls';
6
7 /*--------------------------------------------------*/
8 /* procedure name: Create_Flwsts_Tran_Mile */
9 /* description : procedure used to create */
10 /* FS transition milestone rec */
11 /* */
12 /*--------------------------------------------------*/
13 PROCEDURE Create_Flwsts_Tran_Mile
14 (
15 p_api_version IN NUMBER,
16 p_commit IN VARCHAR2,
17 p_init_msg_list IN VARCHAR2,
18 p_validation_level IN NUMBER,
19 x_return_status OUT NOCOPY VARCHAR2,
20 x_msg_count OUT NOCOPY NUMBER,
21 x_msg_data OUT NOCOPY VARCHAR2,
22 p_flwsts_tran_mile_rec IN FLWSTS_TRAN_MILE_REC_TYPE,
23 x_flwsts_tran_mile_id OUT NOCOPY NUMBER
24 ) IS
25
26 -- CONSTANTS --
27 lc_mod_name CONSTANT VARCHAR2(100) := 'csd.plsql.CSD_FLWSTS_TRAN_MILES_PVT.create_flwsts_tran_mile';
28 lc_api_name CONSTANT VARCHAR2(30) := 'Create_Flwsts_Tran_Mile';
29 lc_api_version CONSTANT NUMBER := 1.0;
30
31 -- VARIABLES --
32 l_msg_count NUMBER;
33 l_msg_data VARCHAR2(100);
34 l_msg_index NUMBER;
35 l_dummy VARCHAR2(1) := null;
36 l_obj_ver_num NUMBER := 1;
37 l_rowid ROWID;
38
39 -- EXCEPTIONS --
40 UNIQUE_CONSTRAINT_VIOLATED Exception;
41
42 -- This will trap all exceptions that have
43 -- SQLCODE = -00001 and name it as 'UNIQUE_CONSTRAINT_VIOLATED'.
44 PRAGMA EXCEPTION_INIT( UNIQUE_CONSTRAINT_VIOLATED, -00001 );
45
46 BEGIN
47 -- Standard Start of API savepoint
48 SAVEPOINT Create_Flwsts_Tran_Mile;
49
50 -- Standard call to check for call compatibility.
51 IF NOT FND_API.Compatible_API_Call (lc_api_version,
52 p_api_version,
53 lc_api_name ,
54 G_PKG_NAME )
55 THEN
56 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
57 END IF;
58
59 -- Initialize message list if p_init_msg_list is set to TRUE.
60 IF FND_API.to_Boolean( p_init_msg_list ) THEN
61 FND_MSG_PUB.initialize;
62 END IF;
63
64 IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
65 FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, lc_mod_name || '.BEGIN',
66 'Entered Create_Flwsts_Tran_Mile');
67 END IF;
68
69 -- Initialize API return status to success
70 x_return_status := FND_API.G_RET_STS_SUCCESS;
71
72 -- Api body starts
73
74 -- Check the required parameters
75 if (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
76 FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, lc_mod_name,
77 'Checking required parameters');
78 end if;
79
80 -- Check the required parameters
81 CSD_PROCESS_UTIL.Check_Reqd_Param
82 ( p_param_value => p_flwsts_tran_mile_rec.flwsts_tran_id,
83 p_param_name => 'FLWSTS_TRAN_ID',
84 p_api_name => lc_api_name);
85
86 CSD_PROCESS_UTIL.Check_Reqd_Param
87 ( p_param_value => p_flwsts_tran_mile_rec.milestone_code,
88 p_param_name => 'MILESTONE_CODE',
89 p_api_name => lc_api_name);
90
91 -- Insert row
92 if (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
93 FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, lc_mod_name,
94 'Calling Insert_Row table handler');
95 end if;
96
97 Begin
98
99 -- Insert the new flow status transition milestone
100 CSD_FLWSTS_TRAN_MILES_PKG.Insert_Row
101 (
102 px_flwsts_tran_mile_id => x_flwsts_tran_mile_id,
103 p_flwsts_tran_id => p_flwsts_tran_mile_rec.flwsts_tran_id,
104 p_milestone_code => p_flwsts_tran_mile_rec.milestone_code,
105 p_object_version_number => l_obj_ver_num,
106 p_created_by => FND_GLOBAL.USER_ID,
107 p_creation_date => SYSDATE,
108 p_last_updated_by => FND_GLOBAL.USER_ID,
109 p_last_update_date => SYSDATE,
110 p_last_update_login => FND_GLOBAL.LOGIN_ID
111 );
112
113 END;
114
115 if (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
116 FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, lc_mod_name,
117 'Returned from Insert_Row table handler');
118 end if;
119
120 -- Api body ends here
121
122 -- Standard check of p_commit.
123 IF FND_API.To_Boolean( p_commit ) THEN
124 COMMIT WORK;
125 END IF;
126
127 -- Standard call to get message count and IF count is get message info.
128 FND_MSG_PUB.Count_And_Get
129 (p_count => x_msg_count,
130 p_data => x_msg_data );
131
132 IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
133 FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, lc_mod_name || '.END',
134 'Leaving Create_Flwsts_Tran_Mile');
135 END IF;
136
137 EXCEPTION
138 WHEN UNIQUE_CONSTRAINT_VIOLATED THEN
139 ROLLBACK TO Create_Flwsts_Tran_Mile;
140 x_return_status := FND_API.G_RET_STS_ERROR;
141
142 -- The definition already exists. No duplicates are allowed.
143 FND_MESSAGE.set_name('CSD', 'CSD_FLEX_DEFN_EXISTS');
144 FND_MSG_PUB.add;
145
146 FND_MSG_PUB.Count_And_Get
147 (p_count => x_msg_count,
148 p_data => x_msg_data );
149
150 -- save message in debug log
151 IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
152 FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION, lc_mod_name,
153 'EXC_ERROR['||x_msg_data||']');
154 END IF;
155 WHEN FND_API.G_EXC_ERROR THEN
156 ROLLBACK TO Create_Flwsts_Tran_Mile;
157 x_return_status := FND_API.G_RET_STS_ERROR;
158
159 FND_MSG_PUB.Count_And_Get
160 (p_count => x_msg_count,
161 p_data => x_msg_data );
162
163 -- save message in debug log
164 IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
165 FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION, lc_mod_name,
166 'EXC_ERROR['||x_msg_data||']');
167 END IF;
168
169 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
170 ROLLBACK TO Create_Flwsts_Tran_Mile;
171 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
172
173 -- save message in fnd stack
174 IF FND_MSG_PUB.Check_Msg_Level
175 (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
176 THEN
177 if (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
178 FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, lc_mod_name,
179 'Adding message using FND_MSG_PUB.Add_Exc_Msg to FND_MSG stack');
180 end if;
181 FND_MSG_PUB.Add_Exc_Msg
182 (G_PKG_NAME ,
183 lc_api_name );
184 END IF;
185
186 FND_MSG_PUB.Count_And_Get
187 ( p_count => x_msg_count,
188 p_data => x_msg_data );
189
190 -- save message in debug log
191 IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
192 FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION, lc_mod_name,
193 'EXC_UNEXPECTED_ERROR['||x_msg_data||']');
194 END IF;
195
196 WHEN OTHERS THEN
197 ROLLBACK TO Create_Flwsts_Tran_Mile;
198 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
199
200 -- save message in fnd stack
201 IF FND_MSG_PUB.Check_Msg_Level
202 (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
203 THEN
204 if (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
205 FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, lc_mod_name,
206 'Adding message using FND_MSG_PUB.Add_Exc_Msg to FND_MSG stack');
207 end if;
208 FND_MSG_PUB.Add_Exc_Msg
209 (G_PKG_NAME ,
210 lc_api_name );
211 END IF;
212
213 FND_MSG_PUB.Count_And_Get
214 (p_count => x_msg_count,
215 p_data => x_msg_data );
216
217 -- save message in debug log
218 IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
219 -- create a seeded message
220 FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION, lc_mod_name,
221 'SQL Message['||sqlerrm||']' );
222 END IF;
223
224 END Create_Flwsts_Tran_Mile;
225
226 /*--------------------------------------------------*/
227 /* procedure name: Update_Flwsts_Tran_Mile */
228 /* description : procedure used to update */
229 /* FS transition milestone rec */
230 /* */
231 /*--------------------------------------------------*/
232 PROCEDURE Update_Flwsts_Tran_Mile
233 (
234 p_api_version IN NUMBER,
235 p_commit IN VARCHAR2,
236 p_init_msg_list IN VARCHAR2,
237 p_validation_level IN NUMBER,
238 x_return_status OUT NOCOPY VARCHAR2,
239 x_msg_count OUT NOCOPY NUMBER,
240 x_msg_data OUT NOCOPY VARCHAR2,
241 p_flwsts_tran_mile_rec IN FLWSTS_TRAN_MILE_REC_TYPE,
242 x_obj_ver_number OUT NOCOPY NUMBER
243 ) IS
244
245 -- CONSTANTS --
246 lc_mod_name CONSTANT VARCHAR2(100) := 'csd.plsql.CSD_FLWSTS_TRAN_MILES_PVT.update_flwsts_tran_mile';
247 lc_api_name CONSTANT VARCHAR2(30) := 'Update_Flwsts_Tran_Mile';
248 lc_api_version CONSTANT NUMBER := 1.0;
249
250 -- VARIABLES --
251 l_msg_count NUMBER;
252 l_msg_data VARCHAR2(100);
253 l_msg_index NUMBER;
254 l_dummy VARCHAR2(1) := null;
255 l_obj_ver_num NUMBER;
256 l_rowid ROWID;
257
258 -- EXCEPTIONS --
259 UNIQUE_CONSTRAINT_VIOLATED Exception;
260
261 -- This will trap all exceptions that have
262 -- SQLCODE = -00001 and name it as 'UNIQUE_CONSTRAINT_VIOLATED'.
263 PRAGMA EXCEPTION_INIT( UNIQUE_CONSTRAINT_VIOLATED, -00001 );
264
265 BEGIN
266 -- Standard Start of API savepoint
267 SAVEPOINT Update_Flwsts_Tran_Mile;
268
269 -- Standard call to check for call compatibility.
270 IF NOT FND_API.Compatible_API_Call (lc_api_version,
271 p_api_version,
272 lc_api_name ,
273 G_PKG_NAME )
274 THEN
275 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
276 END IF;
277
278 -- Initialize message list if p_init_msg_list is set to TRUE.
279 IF FND_API.to_Boolean( p_init_msg_list ) THEN
280 FND_MSG_PUB.initialize;
281 END IF;
282
283 IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
284 FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, lc_mod_name || '.BEGIN',
285 'Entered Update_Flwsts_Tran_Mile');
286 END IF;
287
288 -- Initialize API return status to success
289 x_return_status := FND_API.G_RET_STS_SUCCESS;
290
291 -- Api body starts
292
293 -- Check the required parameters
294 if (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
295 FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, lc_mod_name,
296 'Checking required parameters');
297 end if;
298
299 CSD_PROCESS_UTIL.Check_Reqd_Param
300 ( p_param_value => p_flwsts_tran_mile_rec.flwsts_tran_mile_id,
301 p_param_name => 'FLWSTS_TRAN_MILE_ID',
302 p_api_name => lc_api_name);
303
304 CSD_PROCESS_UTIL.Check_Reqd_Param
305 ( p_param_value => p_flwsts_tran_mile_rec.flwsts_tran_id,
306 p_param_name => 'FLWSTS_TRAN_ID',
307 p_api_name => lc_api_name);
308
309 CSD_PROCESS_UTIL.Check_Reqd_Param
310 ( p_param_value => p_flwsts_tran_mile_rec.milestone_code,
311 p_param_name => 'MILESTONE_CODE',
312 p_api_name => lc_api_name);
313
314 -- Update row
315 if (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
316 FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, lc_mod_name,
317 'Calling Update_Row table handler');
318 end if;
319
320 Begin
321
322 -- Update the FS transition milestone
323 CSD_FLWSTS_TRAN_MILES_PKG.Update_Row
324 (
325 p_flwsts_tran_mile_id => p_flwsts_tran_mile_rec.flwsts_tran_mile_id,
326 p_flwsts_tran_id => p_flwsts_tran_mile_rec.flwsts_tran_id,
327 p_milestone_code => p_flwsts_tran_mile_rec.milestone_code,
328 p_object_version_number => p_flwsts_tran_mile_rec.object_version_number,
329 p_last_updated_by => FND_GLOBAL.USER_ID,
330 p_last_update_date => SYSDATE,
331 p_last_update_login => FND_GLOBAL.LOGIN_ID
332 );
333
334 x_obj_ver_number := p_flwsts_tran_mile_rec.object_version_number + 1;
335 END;
336
337 if (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
338 FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, lc_mod_name,
339 'Returned from Update_Row table handler');
340 end if;
341
342 -- Api body ends here
343
344 -- Standard check of p_commit.
345 IF FND_API.To_Boolean( p_commit ) THEN
346 COMMIT WORK;
347 END IF;
348
349 -- Standard call to get message count and IF count is get message info.
350 FND_MSG_PUB.Count_And_Get
351 (p_count => x_msg_count,
352 p_data => x_msg_data );
353
354 IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
355 FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, lc_mod_name || '.END',
356 'Leaving Update_Flwsts_Tran_Mile');
357 END IF;
358
359 EXCEPTION
360 WHEN UNIQUE_CONSTRAINT_VIOLATED THEN
361 ROLLBACK TO Update_Flwsts_Tran_Mile;
362 x_return_status := FND_API.G_RET_STS_ERROR;
363
364 -- The definition already exists. No duplicates are allowed.
365 FND_MESSAGE.set_name('CSD', 'CSD_FLEX_DEFN_EXISTS');
366 FND_MSG_PUB.add;
367
368 FND_MSG_PUB.Count_And_Get
369 (p_count => x_msg_count,
370 p_data => x_msg_data );
371
372 -- save message in debug log
373 IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
374 FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION, lc_mod_name,
375 'EXC_ERROR['||x_msg_data||']');
376 END IF;
377 WHEN FND_API.G_EXC_ERROR THEN
378 ROLLBACK TO Update_Flwsts_Tran_Mile;
379 x_return_status := FND_API.G_RET_STS_ERROR;
380
381 FND_MSG_PUB.Count_And_Get
382 (p_count => x_msg_count,
383 p_data => x_msg_data );
384
385 -- save message in debug log
386 IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
387 FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION, lc_mod_name,
388 'EXC_ERROR['||x_msg_data||']');
389 END IF;
390
391 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
392 ROLLBACK TO Update_Flwsts_Tran_Mile;
393 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
394
395 IF FND_MSG_PUB.Check_Msg_Level
396 (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
397 THEN
398 if (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
399 FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, lc_mod_name,
400 'Adding message using FND_MSG_PUB.Add_Exc_Msg to FND_MSG stack');
401 end if;
402 FND_MSG_PUB.Add_Exc_Msg
403 (G_PKG_NAME ,
404 lc_api_name );
405 END IF;
406
407 FND_MSG_PUB.Count_And_Get
408 ( p_count => x_msg_count,
409 p_data => x_msg_data );
410
411 -- save message in debug log
412 IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
413 FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION, lc_mod_name,
414 'EXC_UNEXPECTED_ERROR['||x_msg_data||']');
415 END IF;
416
417 WHEN OTHERS THEN
418 ROLLBACK TO Update_Flwsts_Tran_Mile;
419 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
420
421 -- save message in fnd stack
422 IF FND_MSG_PUB.Check_Msg_Level
423 (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
424 THEN
425 if (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
426 FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, lc_mod_name,
427 'Adding message using FND_MSG_PUB.Add_Exc_Msg to FND_MSG stack');
428 end if;
429 FND_MSG_PUB.Add_Exc_Msg
430 (G_PKG_NAME ,
431 lc_api_name );
432 END IF;
433
434 FND_MSG_PUB.Count_And_Get
435 (p_count => x_msg_count,
436 p_data => x_msg_data );
437
438 -- save message in debug log
439 IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
440 -- create a seeded message
441 FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION, lc_mod_name,
442 'SQL Message['||sqlerrm||']' );
443 END IF;
444
445 END Update_Flwsts_Tran_Mile;
446
447 /*--------------------------------------------------*/
448 /* procedure name: Delete_Flwsts_Tran_Mile */
449 /* description : procedure used to delete */
450 /* FS transition milestone rec */
451 /* */
452 /*--------------------------------------------------*/
453 PROCEDURE Delete_Flwsts_Tran_Mile
454 (
455 p_api_version IN NUMBER,
456 p_commit IN VARCHAR2,
457 p_init_msg_list IN VARCHAR2,
458 p_validation_level IN NUMBER,
459 x_return_status OUT NOCOPY VARCHAR2,
460 x_msg_count OUT NOCOPY NUMBER,
461 x_msg_data OUT NOCOPY VARCHAR2,
462 p_flwsts_tran_mile_id IN NUMBER
463 ) IS
464
465 -- CONSTANTS --
466 lc_mod_name CONSTANT VARCHAR2(100) := 'csd.plsql.CSD_FLWSTS_TRAN_MILES_PVT.Delete_Flwsts_Tran_Mile';
467 lc_api_name CONSTANT VARCHAR2(30) := 'Delete_Flwsts_Tran_Mile';
468 lc_api_version CONSTANT NUMBER := 1.0;
469
470 -- VARIABLES --
471 l_msg_count NUMBER;
472 l_msg_data VARCHAR2(100);
473 l_msg_index NUMBER;
474
475 BEGIN
476 -- Standard Start of API savepoint
477 SAVEPOINT Delete_Flwsts_Tran_Mile;
478
479 -- Standard call to check for call compatibility.
480 IF NOT FND_API.Compatible_API_Call (lc_api_version,
481 p_api_version,
482 lc_api_name ,
483 G_PKG_NAME )
484 THEN
485 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
486 END IF;
487
488 -- Initialize message list if p_init_msg_list is set to TRUE.
489 IF FND_API.to_Boolean( p_init_msg_list ) THEN
490 FND_MSG_PUB.initialize;
491 END IF;
492
493 IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
494 FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, lc_mod_name || '.BEGIN',
495 'Entered Delete_Flwsts_Tran_Mile');
496 END IF;
497
498 -- Initialize API return status to success
499 x_return_status := FND_API.G_RET_STS_SUCCESS;
500
501 -- Api body starts
502
503 -- Check the required parameters
504 if (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
505 FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, lc_mod_name,
506 'Checking required parameter');
507 end if;
508
509 -- Check the required parameter
510 CSD_PROCESS_UTIL.Check_Reqd_Param
511 ( p_param_value => p_flwsts_tran_mile_id,
512 p_param_name => 'FLWSTS_TRAN_MILE_ID',
513 p_api_name => lc_api_name);
514
515 -- Delete row
516 if (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
517 FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, lc_mod_name,
518 'Calling Delete_Row table handler');
519 end if;
520
521 BEGIN
522
523 -- Delete the FS transition milestone
524 CSD_FLWSTS_TRAN_MILES_PKG.Delete_Row
525 ( p_flwsts_tran_mile_id => p_flwsts_tran_mile_id);
526
527 END;
528
529 if (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
530 FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, lc_mod_name,
531 'Returned from Delete_Row table handler');
532 end if;
533
534 -- Api body ends here
535
536 -- Standard check of p_commit.
537 IF FND_API.To_Boolean( p_commit ) THEN
538 COMMIT WORK;
539 END IF;
540
541 -- Standard call to get message count and IF count is get message info.
542 FND_MSG_PUB.Count_And_Get
543 (p_count => x_msg_count,
544 p_data => x_msg_data );
545
546 IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
547 FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, lc_mod_name || '.END',
548 'Leaving Delete_Flwsts_Tran_Mile');
549 END IF;
550
551 EXCEPTION
552
553 WHEN FND_API.G_EXC_ERROR THEN
554 ROLLBACK TO Delete_Flwsts_Tran_Mile;
555
556 x_return_status := FND_API.G_RET_STS_ERROR;
557
558 FND_MSG_PUB.Count_And_Get
559 (p_count => x_msg_count,
560 p_data => x_msg_data );
561
562 -- save message in debug log
563 IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
564 FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION, lc_mod_name,
565 'EXC_ERROR['||x_msg_data||']');
566 END IF;
567
568 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
569 ROLLBACK TO Delete_Flwsts_Tran_Mile;
570
571 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
572
573 IF FND_MSG_PUB.Check_Msg_Level
574 (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
575 THEN
576 if (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
577 FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, lc_mod_name,
578 'Adding message using FND_MSG_PUB.Add_Exc_Msg to FND_MSG stack');
579 end if;
580 FND_MSG_PUB.Add_Exc_Msg
581 (G_PKG_NAME ,
582 lc_api_name );
583 END IF;
584
585 FND_MSG_PUB.Count_And_Get
586 ( p_count => x_msg_count,
587 p_data => x_msg_data );
588
589 -- save message in debug log
590 IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
591 FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION, lc_mod_name,
592 'EXC_UNEXPECTED_ERROR['||x_msg_data||']');
593 END IF;
594
595 WHEN OTHERS THEN
596 ROLLBACK TO Delete_Flwsts_Tran_Mile;
597
598 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
599
600 -- save message in fnd stack
601 IF FND_MSG_PUB.Check_Msg_Level
602 (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
603 THEN
604 if (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
605 FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, lc_mod_name,
606 'Adding message using FND_MSG_PUB.Add_Exc_Msg to FND_MSG stack');
607 end if;
608 FND_MSG_PUB.Add_Exc_Msg
609 (G_PKG_NAME ,
610 lc_api_name );
611 END IF;
612
613 FND_MSG_PUB.Count_And_Get
614 (p_count => x_msg_count,
615 p_data => x_msg_data );
616
617 -- save message in debug log
618 IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
619 -- create a seeded message
620 FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION, lc_mod_name,
621 'SQL Message['||sqlerrm||']' );
622 END IF;
623
624 END Delete_Flwsts_Tran_Mile;
625
626 /*--------------------------------------------------*/
627 /* procedure name: Lock_Flwsts_Tran_Mile */
628 /* description : procedure used to lock */
629 /* FS transition milestone rec */
630 /* */
631 /*--------------------------------------------------*/
632 PROCEDURE Lock_Flwsts_Tran_Mile
633 (
634 p_api_version IN NUMBER,
635 p_commit IN VARCHAR2,
636 p_init_msg_list IN VARCHAR2,
637 p_validation_level IN NUMBER,
638 x_return_status OUT NOCOPY VARCHAR2,
639 x_msg_count OUT NOCOPY NUMBER,
640 x_msg_data OUT NOCOPY VARCHAR2,
641 p_flwsts_tran_mile_rec IN FLWSTS_TRAN_MILE_REC_TYPE
642 ) IS
643
644 -- CONSTANTS --
645 lc_mod_name CONSTANT VARCHAR2(100) := 'csd.plsql.CSD_FLWSTS_TRAN_MILES_PVT.lock_flwsts_tran_mile';
646 lc_api_name CONSTANT VARCHAR2(30) := 'Lock_Flwsts_Tran_Mile';
647 lc_api_version CONSTANT NUMBER := 1.0;
648
649 -- VARIABLES --
650 l_msg_count NUMBER;
651 l_msg_data VARCHAR2(100);
652 l_msg_index NUMBER;
653 l_rowid ROWID;
654
655 BEGIN
656 -- Standard Start of API savepoint
657 SAVEPOINT Lock_Flwsts_Tran_Mile;
658
659 -- Standard call to check for call compatibility.
660 IF NOT FND_API.Compatible_API_Call (lc_api_version,
661 p_api_version,
662 lc_api_name ,
663 G_PKG_NAME )
664 THEN
665 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
666 END IF;
667
668 -- Initialize message list if p_init_msg_list is set to TRUE.
669 IF FND_API.to_Boolean( p_init_msg_list ) THEN
670 FND_MSG_PUB.initialize;
671 END IF;
672
673 IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
674 FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, lc_mod_name || '.BEGIN',
675 'Entered Lock_Flwsts_Tran_Mile');
676 END IF;
677
678 -- Initialize API return status to success
679 x_return_status := FND_API.G_RET_STS_SUCCESS;
680
681 -- Api body starts
682
683 -- Check the required parameters
684 if (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
685 FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, lc_mod_name,
686 'Checking required parameters');
687 end if;
688
689 -- Check the required parameters
690 CSD_PROCESS_UTIL.Check_Reqd_Param
691 ( p_param_value => p_flwsts_tran_mile_rec.flwsts_tran_mile_id,
692 p_param_name => 'FLWSTS_TRAN_MILE_ID',
693 p_api_name => lc_api_name);
694
695 CSD_PROCESS_UTIL.Check_Reqd_Param
696 ( p_param_value => p_flwsts_tran_mile_rec.object_version_number,
697 p_param_name => 'OBJECT_VERSION_NUMBER',
698 p_api_name => lc_api_name);
699
700 -- Lock row
701 if (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
702 FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, lc_mod_name,
703 'Calling Lock_Row table handler');
704 end if;
705
706 Begin
707
708 -- Lock the record
709 CSD_FLWSTS_TRAN_MILES_PKG.Lock_Row
710 (
711 p_flwsts_tran_mile_id => p_flwsts_tran_mile_rec.flwsts_tran_mile_id,
712 p_object_version_number => p_flwsts_tran_mile_rec.object_version_number
713 );
714
715 END;
716
717 if (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
718 FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, lc_mod_name,
719 'Returned from Lock_Row table handler');
720 end if;
721
722 -- Api body ends here
723
724 -- Standard check of p_commit.
725 IF FND_API.To_Boolean( p_commit ) THEN
726 COMMIT WORK;
727 END IF;
728
729 -- Standard call to get message count and IF count is get message info.
730 FND_MSG_PUB.Count_And_Get
731 (p_count => x_msg_count,
732 p_data => x_msg_data );
733
734 IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
735 FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, lc_mod_name || '.END',
736 'Leaving Lock_Flwsts_Tran_Mile');
737 END IF;
738
739 EXCEPTION
740
741 WHEN FND_API.G_EXC_ERROR THEN
742 ROLLBACK TO Lock_Flwsts_Tran_Mile;
743 x_return_status := FND_API.G_RET_STS_ERROR;
744
745 FND_MSG_PUB.Count_And_Get
746 (p_count => x_msg_count,
747 p_data => x_msg_data );
748
749 -- save message in debug log
750 IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
751 FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION, lc_mod_name,
752 'EXC_ERROR['||x_msg_data||']');
753 END IF;
754
755 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
756 ROLLBACK TO Lock_Flwsts_Tran_Mile;
757 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
758
759 IF FND_MSG_PUB.Check_Msg_Level
760 (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
761 THEN
762 if (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
763 FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, lc_mod_name,
764 'Adding message using FND_MSG_PUB.Add_Exc_Msg to FND_MSG stack');
765 end if;
766 FND_MSG_PUB.Add_Exc_Msg
767 (G_PKG_NAME ,
768 lc_api_name );
769 END IF;
770
771 FND_MSG_PUB.Count_And_Get
772 ( p_count => x_msg_count,
773 p_data => x_msg_data );
774
775 -- save message in debug log
776 IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
777 FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION, lc_mod_name,
778 'EXC_UNEXPECTED_ERROR['||x_msg_data||']');
779 END IF;
780
781 WHEN OTHERS THEN
782 ROLLBACK TO Lock_Flwsts_Tran_Mile;
783 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
784
785 -- save message in fnd stack
786 IF FND_MSG_PUB.Check_Msg_Level
787 (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
788 THEN
789 if (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
790 FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, lc_mod_name,
791 'Adding message using FND_MSG_PUB.Add_Exc_Msg to FND_MSG stack');
792 end if;
793 FND_MSG_PUB.Add_Exc_Msg
794 (G_PKG_NAME ,
795 lc_api_name );
796 END IF;
797
798 FND_MSG_PUB.Count_And_Get
799 (p_count => x_msg_count,
800 p_data => x_msg_data );
801
802 -- save message in debug log
803 IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
804 -- create a seeded message
805 FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION, lc_mod_name,
806 'SQL Message['||sqlerrm||']' );
807 END IF;
808
809 END Lock_Flwsts_Tran_Mile;
810
811 End CSD_FLWSTS_TRAN_MILES_PVT;