6: /* ----------------------------------------------------------------------- */
7:
8: PROCEDURE Consolidate_Worksheets
9: ( p_api_version IN NUMBER,
10: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
11: p_commit IN VARCHAR2 := FND_API.G_FALSE,
12: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_NONE,
13: p_return_status OUT NOCOPY VARCHAR2,
14: p_msg_count OUT NOCOPY NUMBER,
7:
8: PROCEDURE Consolidate_Worksheets
9: ( p_api_version IN NUMBER,
10: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
11: p_commit IN VARCHAR2 := FND_API.G_FALSE,
12: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_NONE,
13: p_return_status OUT NOCOPY VARCHAR2,
14: p_msg_count OUT NOCOPY NUMBER,
15: p_msg_data OUT NOCOPY VARCHAR2,
8: PROCEDURE Consolidate_Worksheets
9: ( p_api_version IN NUMBER,
10: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
11: p_commit IN VARCHAR2 := FND_API.G_FALSE,
12: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_NONE,
13: p_return_status OUT NOCOPY VARCHAR2,
14: p_msg_count OUT NOCOPY NUMBER,
15: p_msg_data OUT NOCOPY VARCHAR2,
16: p_global_worksheet_id IN NUMBER
27:
28:
29: -- Standard call to check for call compatibility.
30:
31: if not FND_API.Compatible_API_Call (l_api_version,
32: p_api_version,
33: l_api_name,
34: G_PKG_NAME)
35: then
32: p_api_version,
33: l_api_name,
34: G_PKG_NAME)
35: then
36: raise FND_API.G_EXC_UNEXPECTED_ERROR;
37: end if;
38:
39:
40: -- Initialize message list if p_init_msg_list is set to TRUE.
38:
39:
40: -- Initialize message list if p_init_msg_list is set to TRUE.
41:
42: if FND_API.to_Boolean (p_init_msg_list) then
43: FND_MSG_PUB.initialize;
44: end if;
45:
46:
52: p_global_worksheet_id => p_global_worksheet_id);
53:
54: -- Standard check of p_commit.
55:
56: if FND_API.to_Boolean (p_commit) then
57: commit work;
58: end if;
59:
60:
64: p_data => p_msg_data);
65:
66: EXCEPTION
67:
68: when FND_API.G_EXC_ERROR then
69: rollback to Consolidate_Worksheets_Pvt;
70: p_return_status := FND_API.G_RET_STS_ERROR;
71:
72: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
66: EXCEPTION
67:
68: when FND_API.G_EXC_ERROR then
69: rollback to Consolidate_Worksheets_Pvt;
70: p_return_status := FND_API.G_RET_STS_ERROR;
71:
72: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
73: p_data => p_msg_data);
74:
71:
72: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
73: p_data => p_msg_data);
74:
75: when FND_API.G_EXC_UNEXPECTED_ERROR then
76: rollback to Consolidate_Worksheets_Pvt;
77: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
78:
79: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
73: p_data => p_msg_data);
74:
75: when FND_API.G_EXC_UNEXPECTED_ERROR then
76: rollback to Consolidate_Worksheets_Pvt;
77: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
78:
79: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
80: p_data => p_msg_data);
81:
80: p_data => p_msg_data);
81:
82: when OTHERS then
83: rollback to Consolidate_Worksheets_Pvt;
84: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
85:
86: if FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) then
87: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME,
88: l_api_name);
96: /* ----------------------------------------------------------------------- */
97:
98: PROCEDURE Validate_Consolidation
99: ( p_api_version IN NUMBER,
100: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
101: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_NONE,
102: p_return_status OUT NOCOPY VARCHAR2,
103: p_msg_count OUT NOCOPY NUMBER,
104: p_msg_data OUT NOCOPY VARCHAR2,
97:
98: PROCEDURE Validate_Consolidation
99: ( p_api_version IN NUMBER,
100: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
101: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_NONE,
102: p_return_status OUT NOCOPY VARCHAR2,
103: p_msg_count OUT NOCOPY NUMBER,
104: p_msg_data OUT NOCOPY VARCHAR2,
105: p_global_worksheet_id IN NUMBER
111: BEGIN
112:
113: -- Standard call to check for call compatibility.
114:
115: if not FND_API.Compatible_API_Call (l_api_version,
116: p_api_version,
117: l_api_name,
118: G_PKG_NAME)
119: then
116: p_api_version,
117: l_api_name,
118: G_PKG_NAME)
119: then
120: raise FND_API.G_EXC_UNEXPECTED_ERROR;
121: end if;
122:
123:
124: -- Initialize message list if p_init_msg_list is set to TRUE.
122:
123:
124: -- Initialize message list if p_init_msg_list is set to TRUE.
125:
126: if FND_API.to_Boolean (p_init_msg_list) then
127: FND_MSG_PUB.initialize;
128: end if;
129:
130:
141: p_data => p_msg_data);
142:
143: EXCEPTION
144:
145: when FND_API.G_EXC_ERROR then
146: p_return_status := FND_API.G_RET_STS_ERROR;
147:
148: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
149: p_data => p_msg_data);
142:
143: EXCEPTION
144:
145: when FND_API.G_EXC_ERROR then
146: p_return_status := FND_API.G_RET_STS_ERROR;
147:
148: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
149: p_data => p_msg_data);
150:
147:
148: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
149: p_data => p_msg_data);
150:
151: when FND_API.G_EXC_UNEXPECTED_ERROR then
152: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
153:
154: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
155: p_data => p_msg_data);
148: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
149: p_data => p_msg_data);
150:
151: when FND_API.G_EXC_UNEXPECTED_ERROR then
152: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
153:
154: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
155: p_data => p_msg_data);
156:
154: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
155: p_data => p_msg_data);
156:
157: when OTHERS then
158: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
159:
160: if FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) then
161: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME,
162: l_api_name);
171:
172: PROCEDURE Insert_Row
173: (
174: p_api_version IN NUMBER,
175: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
176: p_commit IN VARCHAR2 := FND_API.G_FALSE,
177: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
178: p_return_status OUT NOCOPY VARCHAR2,
179: p_msg_count OUT NOCOPY NUMBER,
172: PROCEDURE Insert_Row
173: (
174: p_api_version IN NUMBER,
175: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
176: p_commit IN VARCHAR2 := FND_API.G_FALSE,
177: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
178: p_return_status OUT NOCOPY VARCHAR2,
179: p_msg_count OUT NOCOPY NUMBER,
180: p_msg_data OUT NOCOPY VARCHAR2,
173: (
174: p_api_version IN NUMBER,
175: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
176: p_commit IN VARCHAR2 := FND_API.G_FALSE,
177: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
178: p_return_status OUT NOCOPY VARCHAR2,
179: p_msg_count OUT NOCOPY NUMBER,
180: p_msg_data OUT NOCOPY VARCHAR2,
181:
213: BEGIN
214:
215: SAVEPOINT Insert_Row_Pvt ;
216:
217: IF NOT FND_API.Compatible_API_Call ( l_api_version,
218: p_api_version,
219: l_api_name,
220: G_PKG_NAME )
221: THEN
218: p_api_version,
219: l_api_name,
220: G_PKG_NAME )
221: THEN
222: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
223: END IF;
224:
225:
226: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
222: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
223: END IF;
224:
225:
226: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
227: FND_MSG_PUB.initialize ;
228: END IF;
229:
230: p_return_status := FND_API.G_RET_STS_SUCCESS ;
226: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
227: FND_MSG_PUB.initialize ;
228: END IF;
229:
230: p_return_status := FND_API.G_RET_STS_SUCCESS ;
231:
232: INSERT INTO psb_ws_consolidation_details(
233: global_worksheet_id,
234: local_worksheet_id,
272: OPEN C;
273: FETCH C INTO p_row_id;
274: IF (C%NOTFOUND) THEN
275: CLOSE C;
276: RAISE FND_API.G_EXC_ERROR ;
277: END IF;
278: CLOSE C;
279:
280:
277: END IF;
278: CLOSE C;
279:
280:
281: IF FND_API.To_Boolean ( p_commit ) THEN
282: COMMIT WORK;
283: END iF;
284:
285: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
286: p_data => p_msg_data );
287:
288: EXCEPTION
289:
290: WHEN FND_API.G_EXC_ERROR THEN
291:
292: ROLLBACK TO Insert_Row_Pvt ;
293: p_return_status := FND_API.G_RET_STS_ERROR;
294: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
289:
290: WHEN FND_API.G_EXC_ERROR THEN
291:
292: ROLLBACK TO Insert_Row_Pvt ;
293: p_return_status := FND_API.G_RET_STS_ERROR;
294: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
295: p_data => p_msg_data );
296:
297: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
293: p_return_status := FND_API.G_RET_STS_ERROR;
294: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
295: p_data => p_msg_data );
296:
297: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
298:
299: ROLLBACK TO Insert_Row_Pvt ;
300: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
301: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
296:
297: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
298:
299: ROLLBACK TO Insert_Row_Pvt ;
300: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
301: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
302: p_data => p_msg_data );
303:
304: WHEN OTHERS THEN
303:
304: WHEN OTHERS THEN
305:
306: ROLLBACK TO Insert_Row_Pvt ;
307: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
308:
309: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
310: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
311: l_api_name);
319:
320: PROCEDURE Lock_Row
321: (
322: p_api_version IN NUMBER,
323: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
324: p_commit IN VARCHAR2 := FND_API.G_FALSE,
325: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
326: p_return_status OUT NOCOPY VARCHAR2,
327: p_msg_count OUT NOCOPY NUMBER,
320: PROCEDURE Lock_Row
321: (
322: p_api_version IN NUMBER,
323: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
324: p_commit IN VARCHAR2 := FND_API.G_FALSE,
325: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
326: p_return_status OUT NOCOPY VARCHAR2,
327: p_msg_count OUT NOCOPY NUMBER,
328: p_msg_data OUT NOCOPY VARCHAR2,
321: (
322: p_api_version IN NUMBER,
323: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
324: p_commit IN VARCHAR2 := FND_API.G_FALSE,
325: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
326: p_return_status OUT NOCOPY VARCHAR2,
327: p_msg_count OUT NOCOPY NUMBER,
328: p_msg_data OUT NOCOPY VARCHAR2,
329:
360: BEGIN
361:
362: SAVEPOINT Lock_Row_Pvt ;
363:
364: IF NOT FND_API.Compatible_API_Call ( l_api_version,
365: p_api_version,
366: l_api_name,
367: G_PKG_NAME )
368: THEN
365: p_api_version,
366: l_api_name,
367: G_PKG_NAME )
368: THEN
369: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
370: END IF;
371:
372:
373: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
369: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
370: END IF;
371:
372:
373: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
374: FND_MSG_PUB.initialize ;
375: END IF;
376:
377: p_return_status := FND_API.G_RET_STS_SUCCESS ;
373: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
374: FND_MSG_PUB.initialize ;
375: END IF;
376:
377: p_return_status := FND_API.G_RET_STS_SUCCESS ;
378: p_row_locked := FND_API.G_TRUE ;
379:
380: OPEN C;
381:
374: FND_MSG_PUB.initialize ;
375: END IF;
376:
377: p_return_status := FND_API.G_RET_STS_SUCCESS ;
378: p_row_locked := FND_API.G_TRUE ;
379:
380: OPEN C;
381:
382: FETCH C INTO Recinfo;
383: IF (C%NOTFOUND) then
384: CLOSE C;
385: FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_DELETED');
386: FND_MSG_PUB.Add;
387: RAISE FND_API.G_EXC_ERROR ;
388: END IF;
389: CLOSE C;
390: IF
391: (
440: Null;
441: ELSE
442: FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_CHANGED');
443: FND_MSG_PUB.Add;
444: RAISE FND_API.G_EXC_ERROR ;
445: END IF;
446:
447:
448: IF FND_API.To_Boolean ( p_commit ) THEN
444: RAISE FND_API.G_EXC_ERROR ;
445: END IF;
446:
447:
448: IF FND_API.To_Boolean ( p_commit ) THEN
449: COMMIT WORK;
450: END iF;
451:
452: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
456:
457: WHEN APP_EXCEPTION.RECORD_LOCK_EXCEPTION THEN
458:
459: ROLLBACK TO Lock_Row_Pvt ;
460: p_row_locked := FND_API.G_FALSE;
461: p_return_status := FND_API.G_RET_STS_ERROR;
462: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
463: p_data => p_msg_data );
464:
457: WHEN APP_EXCEPTION.RECORD_LOCK_EXCEPTION THEN
458:
459: ROLLBACK TO Lock_Row_Pvt ;
460: p_row_locked := FND_API.G_FALSE;
461: p_return_status := FND_API.G_RET_STS_ERROR;
462: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
463: p_data => p_msg_data );
464:
465: WHEN FND_API.G_EXC_ERROR THEN
461: p_return_status := FND_API.G_RET_STS_ERROR;
462: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
463: p_data => p_msg_data );
464:
465: WHEN FND_API.G_EXC_ERROR THEN
466:
467: ROLLBACK TO Lock_Row_Pvt ;
468: p_return_status := FND_API.G_RET_STS_ERROR;
469: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
464:
465: WHEN FND_API.G_EXC_ERROR THEN
466:
467: ROLLBACK TO Lock_Row_Pvt ;
468: p_return_status := FND_API.G_RET_STS_ERROR;
469: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
470: p_data => p_msg_data );
471:
472: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
468: p_return_status := FND_API.G_RET_STS_ERROR;
469: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
470: p_data => p_msg_data );
471:
472: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
473:
474: ROLLBACK TO Lock_Row_Pvt ;
475: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
476: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
471:
472: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
473:
474: ROLLBACK TO Lock_Row_Pvt ;
475: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
476: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
477: p_data => p_msg_data );
478:
479: WHEN OTHERS THEN
478:
479: WHEN OTHERS THEN
480:
481: ROLLBACK TO Lock_Row_Pvt ;
482: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
483:
484: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
485: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
486: l_api_name);
494:
495: PROCEDURE Update_Row
496: (
497: p_api_version IN NUMBER,
498: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
499: p_commit IN VARCHAR2 := FND_API.G_FALSE,
500: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
501: p_return_status OUT NOCOPY VARCHAR2,
502: p_msg_count OUT NOCOPY NUMBER,
495: PROCEDURE Update_Row
496: (
497: p_api_version IN NUMBER,
498: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
499: p_commit IN VARCHAR2 := FND_API.G_FALSE,
500: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
501: p_return_status OUT NOCOPY VARCHAR2,
502: p_msg_count OUT NOCOPY NUMBER,
503: p_msg_data OUT NOCOPY VARCHAR2,
496: (
497: p_api_version IN NUMBER,
498: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
499: p_commit IN VARCHAR2 := FND_API.G_FALSE,
500: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
501: p_return_status OUT NOCOPY VARCHAR2,
502: p_msg_count OUT NOCOPY NUMBER,
503: p_msg_data OUT NOCOPY VARCHAR2,
504:
528: BEGIN
529:
530: SAVEPOINT Update_Row_Pvt ;
531:
532: IF NOT FND_API.Compatible_API_Call ( l_api_version,
533: p_api_version,
534: l_api_name,
535: G_PKG_NAME )
536: THEN
533: p_api_version,
534: l_api_name,
535: G_PKG_NAME )
536: THEN
537: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
538: END IF;
539:
540:
541: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
537: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
538: END IF;
539:
540:
541: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
542: FND_MSG_PUB.initialize ;
543: END IF;
544:
545: p_return_status := FND_API.G_RET_STS_SUCCESS ;
541: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
542: FND_MSG_PUB.initialize ;
543: END IF;
544:
545: p_return_status := FND_API.G_RET_STS_SUCCESS ;
546:
547:
548: UPDATE psb_ws_consolidation_details
549: SET
569: RAISE NO_DATA_FOUND ;
570: END IF;
571:
572:
573: IF FND_API.To_Boolean ( p_commit ) THEN
574: COMMIT WORK;
575: END iF;
576:
577: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
578: p_data => p_msg_data );
579:
580: EXCEPTION
581:
582: WHEN FND_API.G_EXC_ERROR THEN
583:
584: ROLLBACK TO Update_Row_Pvt ;
585: p_return_status := FND_API.G_RET_STS_ERROR;
586: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
581:
582: WHEN FND_API.G_EXC_ERROR THEN
583:
584: ROLLBACK TO Update_Row_Pvt ;
585: p_return_status := FND_API.G_RET_STS_ERROR;
586: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
587: p_data => p_msg_data );
588:
589: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
585: p_return_status := FND_API.G_RET_STS_ERROR;
586: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
587: p_data => p_msg_data );
588:
589: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
590:
591: ROLLBACK TO Update_Row_Pvt ;
592: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
593: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
588:
589: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
590:
591: ROLLBACK TO Update_Row_Pvt ;
592: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
593: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
594: p_data => p_msg_data );
595:
596: WHEN OTHERS THEN
595:
596: WHEN OTHERS THEN
597:
598: ROLLBACK TO Update_Row_Pvt ;
599: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
600:
601: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
602: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
603: l_api_name);
611:
612: PROCEDURE Delete_Row
613: (
614: p_api_version IN NUMBER,
615: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
616: p_commit IN VARCHAR2 := FND_API.G_FALSE,
617: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
618: p_return_status OUT NOCOPY VARCHAR2,
619: p_msg_count OUT NOCOPY NUMBER,
612: PROCEDURE Delete_Row
613: (
614: p_api_version IN NUMBER,
615: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
616: p_commit IN VARCHAR2 := FND_API.G_FALSE,
617: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
618: p_return_status OUT NOCOPY VARCHAR2,
619: p_msg_count OUT NOCOPY NUMBER,
620: p_msg_data OUT NOCOPY VARCHAR2,
613: (
614: p_api_version IN NUMBER,
615: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
616: p_commit IN VARCHAR2 := FND_API.G_FALSE,
617: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
618: p_return_status OUT NOCOPY VARCHAR2,
619: p_msg_count OUT NOCOPY NUMBER,
620: p_msg_data OUT NOCOPY VARCHAR2,
621:
633: BEGIN
634:
635: SAVEPOINT Delete_Row_Pvt ;
636:
637: IF NOT FND_API.Compatible_API_Call ( l_api_version,
638: p_api_version,
639: l_api_name,
640: G_PKG_NAME )
641: THEN
638: p_api_version,
639: l_api_name,
640: G_PKG_NAME )
641: THEN
642: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
643: END IF;
644:
645:
646: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
642: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
643: END IF;
644:
645:
646: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
647: FND_MSG_PUB.initialize ;
648: END IF ;
649:
650: p_return_status := FND_API.G_RET_STS_SUCCESS ;
646: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
647: FND_MSG_PUB.initialize ;
648: END IF ;
649:
650: p_return_status := FND_API.G_RET_STS_SUCCESS ;
651:
652:
653: DELETE FROM psb_ws_consolidation_details
654: WHERE rowid = p_row_id;
657: RAISE NO_DATA_FOUND ;
658: END IF;
659:
660:
661: IF FND_API.To_Boolean ( p_commit ) THEN
662: COMMIT WORK;
663: END iF;
664:
665: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
666: p_data => p_msg_data );
667:
668: EXCEPTION
669:
670: WHEN FND_API.G_EXC_ERROR THEN
671:
672: ROLLBACK TO Delete_Row_Pvt ;
673: p_return_status := FND_API.G_RET_STS_ERROR;
674: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
669:
670: WHEN FND_API.G_EXC_ERROR THEN
671:
672: ROLLBACK TO Delete_Row_Pvt ;
673: p_return_status := FND_API.G_RET_STS_ERROR;
674: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
675: p_data => p_msg_data );
676:
677: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
673: p_return_status := FND_API.G_RET_STS_ERROR;
674: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
675: p_data => p_msg_data );
676:
677: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
678:
679: ROLLBACK TO Delete_Row_Pvt ;
680: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
681: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
676:
677: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
678:
679: ROLLBACK TO Delete_Row_Pvt ;
680: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
681: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
682: p_data => p_msg_data );
683:
684: WHEN OTHERS THEN
683:
684: WHEN OTHERS THEN
685:
686: ROLLBACK TO Delete_Row_Pvt ;
687: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
688:
689: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
690: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
691: l_api_name);
699:
700: PROCEDURE Check_Unique
701: (
702: p_api_version IN NUMBER,
703: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
704: p_commit IN VARCHAR2 := FND_API.G_FALSE,
705: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
706: p_return_status OUT NOCOPY VARCHAR2,
707: p_msg_count OUT NOCOPY NUMBER,
700: PROCEDURE Check_Unique
701: (
702: p_api_version IN NUMBER,
703: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
704: p_commit IN VARCHAR2 := FND_API.G_FALSE,
705: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
706: p_return_status OUT NOCOPY VARCHAR2,
707: p_msg_count OUT NOCOPY NUMBER,
708: p_msg_data OUT NOCOPY VARCHAR2,
701: (
702: p_api_version IN NUMBER,
703: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
704: p_commit IN VARCHAR2 := FND_API.G_FALSE,
705: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
706: p_return_status OUT NOCOPY VARCHAR2,
707: p_msg_count OUT NOCOPY NUMBER,
708: p_msg_data OUT NOCOPY VARCHAR2,
709: --
728: BEGIN
729:
730: SAVEPOINT Check_Unique_Pvt ;
731:
732: IF NOT FND_API.Compatible_API_Call ( l_api_version,
733: p_api_version,
734: l_api_name,
735: G_PKG_NAME )
736: THEN
733: p_api_version,
734: l_api_name,
735: G_PKG_NAME )
736: THEN
737: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
738: END IF;
739:
740:
741: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
737: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
738: END IF;
739:
740:
741: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
742: FND_MSG_PUB.initialize ;
743: END IF;
744:
745: p_return_status := FND_API.G_RET_STS_SUCCESS ;
741: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
742: FND_MSG_PUB.initialize ;
743: END IF;
744:
745: p_return_status := FND_API.G_RET_STS_SUCCESS ;
746:
747: -- Checking the Psb_ws_consolidations table for references.
748: OPEN c;
749: FETCH c INTO l_tmp;
756: END IF;
757:
758: CLOSE c;
759:
760: IF FND_API.To_Boolean ( p_commit ) THEN
761: COMMIT WORK;
762: END iF;
763:
764: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
765: p_data => p_msg_data );
766:
767: EXCEPTION
768:
769: WHEN FND_API.G_EXC_ERROR THEN
770:
771: ROLLBACK TO Check_Unique_Pvt ;
772: p_return_status := FND_API.G_RET_STS_ERROR;
773: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
768:
769: WHEN FND_API.G_EXC_ERROR THEN
770:
771: ROLLBACK TO Check_Unique_Pvt ;
772: p_return_status := FND_API.G_RET_STS_ERROR;
773: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
774: p_data => p_msg_data );
775:
776: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
772: p_return_status := FND_API.G_RET_STS_ERROR;
773: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
774: p_data => p_msg_data );
775:
776: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
777:
778: ROLLBACK TO Check_Unique_Pvt ;
779: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
780: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
775:
776: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
777:
778: ROLLBACK TO Check_Unique_Pvt ;
779: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
780: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
781: p_data => p_msg_data );
782:
783: WHEN OTHERS THEN
782:
783: WHEN OTHERS THEN
784:
785: ROLLBACK TO Check_Unique_Pvt ;
786: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
787:
788: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
789: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
790: l_api_name);
822: BEGIN
823:
824: PSB_WORKSHEET_CONSOLIDATE_PVT.Validate_Consolidation
825: (p_api_version => 1.0,
826: p_init_msg_list => FND_API.G_TRUE,
827: p_validation_level => FND_API.G_VALID_LEVEL_NONE,
828: p_return_status => l_return_status,
829: p_msg_count => l_msg_count,
830: p_msg_data => l_msg_data,
823:
824: PSB_WORKSHEET_CONSOLIDATE_PVT.Validate_Consolidation
825: (p_api_version => 1.0,
826: p_init_msg_list => FND_API.G_TRUE,
827: p_validation_level => FND_API.G_VALID_LEVEL_NONE,
828: p_return_status => l_return_status,
829: p_msg_count => l_msg_count,
830: p_msg_data => l_msg_data,
831: p_global_worksheet_id => p_worksheet_id
830: p_msg_data => l_msg_data,
831: p_global_worksheet_id => p_worksheet_id
832: );
833:
834: if l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
835: raise FND_API.G_EXC_ERROR;
836: end if;
837:
838: PSB_WORKSHEET_CONSOLIDATE_PVT.Consolidate_Worksheets
831: p_global_worksheet_id => p_worksheet_id
832: );
833:
834: if l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
835: raise FND_API.G_EXC_ERROR;
836: end if;
837:
838: PSB_WORKSHEET_CONSOLIDATE_PVT.Consolidate_Worksheets
839: (p_api_version => 1.0,
836: end if;
837:
838: PSB_WORKSHEET_CONSOLIDATE_PVT.Consolidate_Worksheets
839: (p_api_version => 1.0,
840: p_init_msg_list => FND_API.G_TRUE,
841: p_commit => FND_API.G_TRUE,
842: p_validation_level => FND_API.G_VALID_LEVEL_NONE,
843: p_return_status => l_return_status,
844: p_msg_count => l_msg_count,
837:
838: PSB_WORKSHEET_CONSOLIDATE_PVT.Consolidate_Worksheets
839: (p_api_version => 1.0,
840: p_init_msg_list => FND_API.G_TRUE,
841: p_commit => FND_API.G_TRUE,
842: p_validation_level => FND_API.G_VALID_LEVEL_NONE,
843: p_return_status => l_return_status,
844: p_msg_count => l_msg_count,
845: p_msg_data => l_msg_data,
838: PSB_WORKSHEET_CONSOLIDATE_PVT.Consolidate_Worksheets
839: (p_api_version => 1.0,
840: p_init_msg_list => FND_API.G_TRUE,
841: p_commit => FND_API.G_TRUE,
842: p_validation_level => FND_API.G_VALID_LEVEL_NONE,
843: p_return_status => l_return_status,
844: p_msg_count => l_msg_count,
845: p_msg_data => l_msg_data,
846: p_global_worksheet_id => p_worksheet_id
845: p_msg_data => l_msg_data,
846: p_global_worksheet_id => p_worksheet_id
847: );
848:
849: if l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
850: raise FND_API.G_EXC_ERROR;
851: end if;
852:
853: PSB_MESSAGE_S.Print_Success;
846: p_global_worksheet_id => p_worksheet_id
847: );
848:
849: if l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
850: raise FND_API.G_EXC_ERROR;
851: end if;
852:
853: PSB_MESSAGE_S.Print_Success;
854: retcode := 0 ;
854: retcode := 0 ;
855:
856: EXCEPTION
857:
858: WHEN FND_API.G_EXC_ERROR THEN
859: --
860: PSB_MESSAGE_S.Print_Error ( p_mode => FND_FILE.LOG ,
861: p_print_header => FND_API.G_TRUE );
862: retcode := 2 ;
857:
858: WHEN FND_API.G_EXC_ERROR THEN
859: --
860: PSB_MESSAGE_S.Print_Error ( p_mode => FND_FILE.LOG ,
861: p_print_header => FND_API.G_TRUE );
862: retcode := 2 ;
863: COMMIT WORK ;
864: --
865: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
861: p_print_header => FND_API.G_TRUE );
862: retcode := 2 ;
863: COMMIT WORK ;
864: --
865: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
866: --
867: PSB_MESSAGE_S.Print_Error ( p_mode => FND_FILE.LOG ,
868: p_print_header => FND_API.G_TRUE );
869: retcode := 2 ;
864: --
865: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
866: --
867: PSB_MESSAGE_S.Print_Error ( p_mode => FND_FILE.LOG ,
868: p_print_header => FND_API.G_TRUE );
869: retcode := 2 ;
870: COMMIT WORK ;
871: --
872: WHEN OTHERS THEN
876: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME ,
877: l_api_name ) ;
878: END IF ;
879: --
880: l_return_status := FND_API.G_RET_STS_ERROR;
881:
882: PSB_MESSAGE_S.Print_Error ( p_mode => FND_FILE.LOG ,
883: p_print_header => FND_API.G_TRUE );
884: --
879: --
880: l_return_status := FND_API.G_RET_STS_ERROR;
881:
882: PSB_MESSAGE_S.Print_Error ( p_mode => FND_FILE.LOG ,
883: p_print_header => FND_API.G_TRUE );
884: --
885: retcode := 2 ;
886: COMMIT WORK ;
887: --