[Home] [Help]
PACKAGE BODY: APPS.CSD_FLWSTS_TRAN_RESPS_PVT
Source
1 PACKAGE BODY CSD_FLWSTS_TRAN_RESPS_PVT as
2 /* $Header: csdvflrb.pls 120.1 2005/07/29 16:36:47 vkjain noship $ */
3
4 G_PKG_NAME CONSTANT VARCHAR2(30) := 'CSD_FLWSTS_TRAN_RESPS_PVT';
5 G_FILE_NAME CONSTANT VARCHAR2(12) := 'csdvflrb.pls';
6
7 /*--------------------------------------------------*/
8 /* procedure name: Create_Flwsts_Tran_Resp */
9 /* description : procedure used to create */
10 /* FS transition responsibility rec */
11 /* */
12 /*--------------------------------------------------*/
13 PROCEDURE Create_Flwsts_Tran_Resp
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_resp_rec IN FLWSTS_TRAN_RESP_REC_TYPE,
23 x_flwsts_tran_resp_id OUT NOCOPY NUMBER
24 ) IS
25
26 -- CONSTANTS --
27 lc_mod_name CONSTANT VARCHAR2(100) := 'csd.plsql.CSD_FLWSTS_TRAN_RESPS_PVT.create_flwsts_tran_resp';
28 lc_api_name CONSTANT VARCHAR2(30) := 'Create_Flwsts_Tran_Resp';
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_Resp;
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_Resp');
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_resp_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_resp_rec.responsibility_id,
88 p_param_name => 'RESPONSIBILITY_ID',
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 responsibility
100 CSD_FLWSTS_TRAN_RESPS_PKG.Insert_Row
101 (
102 px_flwsts_tran_resp_id => x_flwsts_tran_resp_id,
103 p_flwsts_tran_id => p_flwsts_tran_resp_rec.flwsts_tran_id,
104 p_responsibility_id => p_flwsts_tran_resp_rec.responsibility_id,
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_Resp');
135 END IF;
136
137 EXCEPTION
138 WHEN UNIQUE_CONSTRAINT_VIOLATED THEN
139 ROLLBACK TO Create_Flwsts_Tran_Resp;
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_Resp;
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_Resp;
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_Resp;
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_Resp;
225
226 /*--------------------------------------------------*/
227 /* procedure name: Update_Flwsts_Tran_Resp */
228 /* description : procedure used to update */
229 /* FS transition responsibility rec */
230 /* */
231 /*--------------------------------------------------*/
232 PROCEDURE Update_Flwsts_Tran_Resp
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_resp_rec IN FLWSTS_TRAN_RESP_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_RESPS_PVT.update_flwsts_tran_resp';
247 lc_api_name CONSTANT VARCHAR2(30) := 'Update_Flwsts_Tran_Resp';
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_Resp;
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_Resp');
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_resp_rec.flwsts_tran_resp_id,
301 p_param_name => 'FLWSTS_TRAN_RESP_ID',
302 p_api_name => lc_api_name);
303
304 CSD_PROCESS_UTIL.Check_Reqd_Param
305 ( p_param_value => p_flwsts_tran_resp_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_resp_rec.responsibility_id,
311 p_param_name => 'RESPONSIBILITY_ID',
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 responsibility
323 CSD_FLWSTS_TRAN_RESPS_PKG.Update_Row
324 (
325 p_flwsts_tran_resp_id => p_flwsts_tran_resp_rec.flwsts_tran_resp_id,
326 p_flwsts_tran_id => p_flwsts_tran_resp_rec.flwsts_tran_id,
327 p_responsibility_id => p_flwsts_tran_resp_rec.responsibility_id,
328 p_object_version_number => p_flwsts_tran_resp_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_resp_rec.object_version_number + 1;
335
336 END;
337
338 if (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
339 FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, lc_mod_name,
340 'Returned from Update_Row table handler');
341 end if;
342
343 -- Api body ends here
344
345 -- Standard check of p_commit.
346 IF FND_API.To_Boolean( p_commit ) THEN
347 COMMIT WORK;
348 END IF;
349
350 -- Standard call to get message count and IF count is get message info.
351 FND_MSG_PUB.Count_And_Get
352 (p_count => x_msg_count,
353 p_data => x_msg_data );
354
355 IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
356 FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, lc_mod_name || '.END',
357 'Leaving Update_Flwsts_Tran_Resp');
358 END IF;
359
360 EXCEPTION
361 WHEN UNIQUE_CONSTRAINT_VIOLATED THEN
362 ROLLBACK TO Update_Flwsts_Tran_Resp;
363 x_return_status := FND_API.G_RET_STS_ERROR;
364
365 -- The definition already exists. No duplicates are allowed.
366 FND_MESSAGE.set_name('CSD', 'CSD_FLEX_DEFN_EXISTS');
367 FND_MSG_PUB.add;
368
369 FND_MSG_PUB.Count_And_Get
370 (p_count => x_msg_count,
371 p_data => x_msg_data );
372
373 -- save message in debug log
374 IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
375 FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION, lc_mod_name,
376 'EXC_ERROR['||x_msg_data||']');
377 END IF;
378 WHEN FND_API.G_EXC_ERROR THEN
379 ROLLBACK TO Update_Flwsts_Tran_Resp;
380 x_return_status := FND_API.G_RET_STS_ERROR;
381
382 FND_MSG_PUB.Count_And_Get
383 (p_count => x_msg_count,
384 p_data => x_msg_data );
385
386 -- save message in debug log
387 IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
388 FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION, lc_mod_name,
389 'EXC_ERROR['||x_msg_data||']');
390 END IF;
391
392 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
393 ROLLBACK TO Update_Flwsts_Tran_Resp;
394 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
395
396 IF FND_MSG_PUB.Check_Msg_Level
397 (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
398 THEN
399 if (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
400 FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, lc_mod_name,
401 'Adding message using FND_MSG_PUB.Add_Exc_Msg to FND_MSG stack');
402 end if;
403 FND_MSG_PUB.Add_Exc_Msg
404 (G_PKG_NAME ,
405 lc_api_name );
406 END IF;
407
408 FND_MSG_PUB.Count_And_Get
409 ( p_count => x_msg_count,
410 p_data => x_msg_data );
411
412 -- save message in debug log
413 IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
414 FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION, lc_mod_name,
415 'EXC_UNEXPECTED_ERROR['||x_msg_data||']');
416 END IF;
417
418 WHEN OTHERS THEN
419 ROLLBACK TO Update_Flwsts_Tran_Resp;
420 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
421
422 -- save message in fnd stack
423 IF FND_MSG_PUB.Check_Msg_Level
424 (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
425 THEN
426 if (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
427 FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, lc_mod_name,
428 'Adding message using FND_MSG_PUB.Add_Exc_Msg to FND_MSG stack');
429 end if;
430 FND_MSG_PUB.Add_Exc_Msg
431 (G_PKG_NAME ,
432 lc_api_name );
433 END IF;
434
435 FND_MSG_PUB.Count_And_Get
436 (p_count => x_msg_count,
437 p_data => x_msg_data );
438
439 -- save message in debug log
440 IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
441 -- create a seeded message
442 FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION, lc_mod_name,
443 'SQL Message['||sqlerrm||']' );
444 END IF;
445
446 END Update_Flwsts_Tran_Resp;
447
448 /*--------------------------------------------------*/
449 /* procedure name: Delete_Flwsts_Tran_Resp */
450 /* description : procedure used to delete */
451 /* FS transition responsibility rec */
452 /* */
453 /*--------------------------------------------------*/
454 PROCEDURE Delete_Flwsts_Tran_Resp
455 (
456 p_api_version IN NUMBER,
457 p_commit IN VARCHAR2,
458 p_init_msg_list IN VARCHAR2,
459 p_validation_level IN NUMBER,
460 x_return_status OUT NOCOPY VARCHAR2,
461 x_msg_count OUT NOCOPY NUMBER,
462 x_msg_data OUT NOCOPY VARCHAR2,
463 p_flwsts_tran_resp_id IN NUMBER
464 ) IS
465
466 -- CONSTANTS --
467 lc_mod_name CONSTANT VARCHAR2(100) := 'csd.plsql.CSD_FLWSTS_TRAN_RESPS_PVT.Delete_Flwsts_Tran_Resp';
468 lc_api_name CONSTANT VARCHAR2(30) := 'Delete_Flwsts_Tran_Resp';
469 lc_api_version CONSTANT NUMBER := 1.0;
470
471 -- VARIABLES --
472 l_msg_count NUMBER;
473 l_msg_data VARCHAR2(100);
474 l_msg_index NUMBER;
475
476 BEGIN
477 -- Standard Start of API savepoint
478 SAVEPOINT Delete_Flwsts_Tran_Resp;
479
480 -- Standard call to check for call compatibility.
481 IF NOT FND_API.Compatible_API_Call (lc_api_version,
482 p_api_version,
483 lc_api_name ,
484 G_PKG_NAME )
485 THEN
486 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
487 END IF;
488
489 -- Initialize message list if p_init_msg_list is set to TRUE.
490 IF FND_API.to_Boolean( p_init_msg_list ) THEN
491 FND_MSG_PUB.initialize;
492 END IF;
493
494 IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
495 FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, lc_mod_name || '.BEGIN',
496 'Entered Delete_Flwsts_Tran_Resp');
497 END IF;
498
499 -- Initialize API return status to success
500 x_return_status := FND_API.G_RET_STS_SUCCESS;
501
502 -- Api body starts
503
504 -- Check the required parameters
505 if (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
506 FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, lc_mod_name,
507 'Checking required parameter');
508 end if;
509
510 -- Check the required parameter
511 CSD_PROCESS_UTIL.Check_Reqd_Param
512 ( p_param_value => p_flwsts_tran_resp_id,
513 p_param_name => 'FLWSTS_TRAN_RESP_ID',
514 p_api_name => lc_api_name);
515
516 -- Delete row
517 if (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
518 FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, lc_mod_name,
519 'Calling Delete_Row table handler');
520 end if;
521
522 BEGIN
523
524 -- Delete the FS transition responsibility
525 CSD_FLWSTS_TRAN_RESPS_PKG.Delete_Row
526 ( p_flwsts_tran_resp_id => p_flwsts_tran_resp_id);
527
528 END;
529
530 if (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
531 FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, lc_mod_name,
532 'Returned from Delete_Row table handler');
533 end if;
534
535 -- Api body ends here
536
537 -- Standard check of p_commit.
538 IF FND_API.To_Boolean( p_commit ) THEN
539 COMMIT WORK;
540 END IF;
541
542 -- Standard call to get message count and IF count is get message info.
543 FND_MSG_PUB.Count_And_Get
544 (p_count => x_msg_count,
545 p_data => x_msg_data );
546
547 IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
548 FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, lc_mod_name || '.END',
549 'Leaving Delete_Flwsts_Tran_Resp');
550 END IF;
551
552 EXCEPTION
553
554 WHEN FND_API.G_EXC_ERROR THEN
555 ROLLBACK TO Delete_Flwsts_Tran_Resp;
556
557 x_return_status := FND_API.G_RET_STS_ERROR;
558
559 FND_MSG_PUB.Count_And_Get
560 (p_count => x_msg_count,
561 p_data => x_msg_data );
562
563 -- save message in debug log
564 IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
565 FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION, lc_mod_name,
566 'EXC_ERROR['||x_msg_data||']');
567 END IF;
568
569 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
570 ROLLBACK TO Delete_Flwsts_Tran_Resp;
571
572 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
573
574 IF FND_MSG_PUB.Check_Msg_Level
575 (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
576 THEN
577 if (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
578 FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, lc_mod_name,
579 'Adding message using FND_MSG_PUB.Add_Exc_Msg to FND_MSG stack');
580 end if;
581 FND_MSG_PUB.Add_Exc_Msg
582 (G_PKG_NAME ,
583 lc_api_name );
584 END IF;
585
586 FND_MSG_PUB.Count_And_Get
587 ( p_count => x_msg_count,
588 p_data => x_msg_data );
589
590 -- save message in debug log
591 IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
592 FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION, lc_mod_name,
593 'EXC_UNEXPECTED_ERROR['||x_msg_data||']');
594 END IF;
595
596 WHEN OTHERS THEN
597 ROLLBACK TO Delete_Flwsts_Tran_Resp;
598
599 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
600
601 -- save message in fnd stack
602 IF FND_MSG_PUB.Check_Msg_Level
603 (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
604 THEN
605 if (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
606 FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, lc_mod_name,
607 'Adding message using FND_MSG_PUB.Add_Exc_Msg to FND_MSG stack');
608 end if;
609 FND_MSG_PUB.Add_Exc_Msg
610 (G_PKG_NAME ,
611 lc_api_name );
612 END IF;
613
614 FND_MSG_PUB.Count_And_Get
615 (p_count => x_msg_count,
616 p_data => x_msg_data );
617
618 -- save message in debug log
619 IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
620 -- create a seeded message
621 FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION, lc_mod_name,
622 'SQL Message['||sqlerrm||']' );
623 END IF;
624
625 END Delete_Flwsts_Tran_Resp;
626
627 /*--------------------------------------------------*/
628 /* procedure name: Lock_Flwsts_Tran_Resp */
629 /* description : procedure used to lock */
630 /* FS transition responsibility rec */
631 /* */
632 /*--------------------------------------------------*/
633 PROCEDURE Lock_Flwsts_Tran_Resp
634 (
635 p_api_version IN NUMBER,
636 p_commit IN VARCHAR2,
637 p_init_msg_list IN VARCHAR2,
638 p_validation_level IN NUMBER,
639 x_return_status OUT NOCOPY VARCHAR2,
640 x_msg_count OUT NOCOPY NUMBER,
641 x_msg_data OUT NOCOPY VARCHAR2,
642 p_flwsts_tran_resp_rec IN FLWSTS_TRAN_RESP_REC_TYPE
643 ) IS
644
645 -- CONSTANTS --
646 lc_mod_name CONSTANT VARCHAR2(100) := 'csd.plsql.CSD_FLWSTS_TRAN_RESPS_PVT.lock_flwsts_tran_resp';
647 lc_api_name CONSTANT VARCHAR2(30) := 'Lock_Flwsts_Tran_Resp';
648 lc_api_version CONSTANT NUMBER := 1.0;
649
650 -- VARIABLES --
651 l_msg_count NUMBER;
652 l_msg_data VARCHAR2(100);
653 l_msg_index NUMBER;
654 l_rowid ROWID;
655
656 BEGIN
657 -- Standard Start of API savepoint
658 SAVEPOINT Lock_Flwsts_Tran_Resp;
659
660 -- Standard call to check for call compatibility.
661 IF NOT FND_API.Compatible_API_Call (lc_api_version,
662 p_api_version,
663 lc_api_name ,
664 G_PKG_NAME )
665 THEN
666 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
667 END IF;
668
669 -- Initialize message list if p_init_msg_list is set to TRUE.
670 IF FND_API.to_Boolean( p_init_msg_list ) THEN
671 FND_MSG_PUB.initialize;
672 END IF;
673
674 IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
675 FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, lc_mod_name || '.BEGIN',
676 'Entered Lock_Flwsts_Tran_Resp');
677 END IF;
678
679 -- Initialize API return status to success
680 x_return_status := FND_API.G_RET_STS_SUCCESS;
681
682 -- Api body starts
683
684 -- Check the required parameters
685 if (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
686 FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, lc_mod_name,
687 'Checking required parameters');
688 end if;
689
690 -- Check the required parameters
691 CSD_PROCESS_UTIL.Check_Reqd_Param
692 ( p_param_value => p_flwsts_tran_resp_rec.flwsts_tran_resp_id,
693 p_param_name => 'FLWSTS_TRAN_RESP_ID',
694 p_api_name => lc_api_name);
695
696 CSD_PROCESS_UTIL.Check_Reqd_Param
697 ( p_param_value => p_flwsts_tran_resp_rec.object_version_number,
698 p_param_name => 'OBJECT_VERSION_NUMBER',
699 p_api_name => lc_api_name);
700
701 -- Lock row
702 if (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
703 FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, lc_mod_name,
704 'Calling Lock_Row table handler');
705 end if;
706
707 Begin
708
709 -- Lock the record
710 CSD_FLWSTS_TRAN_RESPS_PKG.Lock_Row
711 (
712 p_flwsts_tran_resp_id => p_flwsts_tran_resp_rec.flwsts_tran_resp_id,
713 p_object_version_number => p_flwsts_tran_resp_rec.object_version_number
714 );
715
716 END;
717
718 if (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
719 FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, lc_mod_name,
720 'Returned from Lock_Row table handler');
721 end if;
722
723 -- Api body ends here
724
725 -- Standard check of p_commit.
726 IF FND_API.To_Boolean( p_commit ) THEN
727 COMMIT WORK;
728 END IF;
729
730 -- Standard call to get message count and IF count is get message info.
731 FND_MSG_PUB.Count_And_Get
732 (p_count => x_msg_count,
733 p_data => x_msg_data );
734
735 IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
736 FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, lc_mod_name || '.END',
737 'Leaving Lock_Flwsts_Tran_Resp');
738 END IF;
739
740 EXCEPTION
741
742 WHEN FND_API.G_EXC_ERROR THEN
743 ROLLBACK TO Lock_Flwsts_Tran_Resp;
744 x_return_status := FND_API.G_RET_STS_ERROR;
745
746 FND_MSG_PUB.Count_And_Get
747 (p_count => x_msg_count,
748 p_data => x_msg_data );
749
750 -- save message in debug log
751 IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
752 FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION, lc_mod_name,
753 'EXC_ERROR['||x_msg_data||']');
754 END IF;
755
756 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
757 ROLLBACK TO Lock_Flwsts_Tran_Resp;
758 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
759
760 IF FND_MSG_PUB.Check_Msg_Level
761 (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
762 THEN
763 if (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
764 FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, lc_mod_name,
765 'Adding message using FND_MSG_PUB.Add_Exc_Msg to FND_MSG stack');
766 end if;
767 FND_MSG_PUB.Add_Exc_Msg
768 (G_PKG_NAME ,
769 lc_api_name );
770 END IF;
771
772 FND_MSG_PUB.Count_And_Get
773 ( p_count => x_msg_count,
774 p_data => x_msg_data );
775
776 -- save message in debug log
777 IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
778 FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION, lc_mod_name,
779 'EXC_UNEXPECTED_ERROR['||x_msg_data||']');
780 END IF;
781
782 WHEN OTHERS THEN
783 ROLLBACK TO Lock_Flwsts_Tran_Resp;
784 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
785
786 -- save message in fnd stack
787 IF FND_MSG_PUB.Check_Msg_Level
788 (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
789 THEN
790 if (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
791 FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, lc_mod_name,
792 'Adding message using FND_MSG_PUB.Add_Exc_Msg to FND_MSG stack');
793 end if;
794 FND_MSG_PUB.Add_Exc_Msg
795 (G_PKG_NAME ,
796 lc_api_name );
797 END IF;
798
799 FND_MSG_PUB.Count_And_Get
800 (p_count => x_msg_count,
801 p_data => x_msg_data );
802
803 -- save message in debug log
804 IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
805 -- create a seeded message
806 FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION, lc_mod_name,
807 'SQL Message['||sqlerrm||']' );
808 END IF;
809
810 END Lock_Flwsts_Tran_Resp;
811
812 End CSD_FLWSTS_TRAN_RESPS_PVT;