13:
14: PROCEDURE Insert_Row
15: (
16: p_api_version IN NUMBER,
17: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
18: p_commit IN VARCHAR2 := FND_API.G_FALSE,
19: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
20: p_return_status OUT NOCOPY VARCHAR2,
21: p_msg_count OUT NOCOPY NUMBER,
14: PROCEDURE Insert_Row
15: (
16: p_api_version IN NUMBER,
17: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
18: p_commit IN VARCHAR2 := FND_API.G_FALSE,
19: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
20: p_return_status OUT NOCOPY VARCHAR2,
21: p_msg_count OUT NOCOPY NUMBER,
22: p_msg_data OUT NOCOPY VARCHAR2,
15: (
16: p_api_version IN NUMBER,
17: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
18: p_commit IN VARCHAR2 := FND_API.G_FALSE,
19: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
20: p_return_status OUT NOCOPY VARCHAR2,
21: p_msg_count OUT NOCOPY NUMBER,
22: p_msg_data OUT NOCOPY VARCHAR2,
23: p_Row_Id IN OUT NOCOPY VARCHAR2,
53: BEGIN
54: --
55: SAVEPOINT Insert_Row_Pvt ;
56: --
57: IF NOT FND_API.Compatible_API_Call ( l_api_version,
58: p_api_version,
59: l_api_name,
60: G_PKG_NAME )
61: THEN
58: p_api_version,
59: l_api_name,
60: G_PKG_NAME )
61: THEN
62: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
63: END IF;
64: --
65:
66: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
62: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
63: END IF;
64: --
65:
66: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
67: FND_MSG_PUB.initialize ;
68: END IF;
69: --
70: p_return_status := FND_API.G_RET_STS_SUCCESS ;
66: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
67: FND_MSG_PUB.initialize ;
68: END IF;
69: --
70: p_return_status := FND_API.G_RET_STS_SUCCESS ;
71: --
72: P_LAST_UPDATE_DATE := SYSDATE;
73: if(P_MODE = 'I') then
74: P_LAST_UPDATED_BY := 1;
84: end if;
85: else
86: FND_MESSAGE.SET_NAME( 'FND', 'SYSTEM-INVALID ARGS');
87: FND_MSG_PUB.Add ;
88: raise FND_API.G_EXC_ERROR;
89: end if;
90: --
91:
92: INSERT INTO psb_flex_mapping_set_values
122: OPEN C;
123: FETCH C INTO p_Row_Id;
124: IF (C%NOTFOUND) THEN
125: CLOSE C;
126: RAISE FND_API.G_EXC_ERROR ;
127: END IF;
128: CLOSE C;
129: --
130:
128: CLOSE C;
129: --
130:
131: --
132: IF FND_API.To_Boolean ( p_commit ) THEN
133: COMMIT WORK;
134: END iF;
135: --
136: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
137: p_data => p_msg_data );
138: --
139: EXCEPTION
140: --
141: WHEN FND_API.G_EXC_ERROR THEN
142: --
143: ROLLBACK TO Insert_Row_Pvt ;
144: p_return_status := FND_API.G_RET_STS_ERROR;
145: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
140: --
141: WHEN FND_API.G_EXC_ERROR THEN
142: --
143: ROLLBACK TO Insert_Row_Pvt ;
144: p_return_status := FND_API.G_RET_STS_ERROR;
145: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
146: p_data => p_msg_data );
147: --
148: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
144: p_return_status := FND_API.G_RET_STS_ERROR;
145: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
146: p_data => p_msg_data );
147: --
148: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
149: --
150: ROLLBACK TO Insert_Row_Pvt ;
151: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
152: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
147: --
148: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
149: --
150: ROLLBACK TO Insert_Row_Pvt ;
151: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
152: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
153: p_data => p_msg_data );
154: --
155: WHEN OTHERS THEN
154: --
155: WHEN OTHERS THEN
156: --
157: ROLLBACK TO Insert_Row_Pvt ;
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);
176:
177: PROCEDURE Lock_Row
178: (
179: p_api_version IN NUMBER,
180: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
181: p_commit IN VARCHAR2 := FND_API.G_FALSE,
182: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
183: p_return_status OUT NOCOPY VARCHAR2,
184: p_msg_count OUT NOCOPY NUMBER,
177: PROCEDURE Lock_Row
178: (
179: p_api_version IN NUMBER,
180: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
181: p_commit IN VARCHAR2 := FND_API.G_FALSE,
182: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
183: p_return_status OUT NOCOPY VARCHAR2,
184: p_msg_count OUT NOCOPY NUMBER,
185: p_msg_data OUT NOCOPY VARCHAR2,
178: (
179: p_api_version IN NUMBER,
180: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
181: p_commit IN VARCHAR2 := FND_API.G_FALSE,
182: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
183: p_return_status OUT NOCOPY VARCHAR2,
184: p_msg_count OUT NOCOPY NUMBER,
185: p_msg_data OUT NOCOPY VARCHAR2,
186: --
218: BEGIN
219: --
220: SAVEPOINT Lock_Row_Pvt ;
221: --
222: IF NOT FND_API.Compatible_API_Call ( l_api_version,
223: p_api_version,
224: l_api_name,
225: G_PKG_NAME )
226: THEN
223: p_api_version,
224: l_api_name,
225: G_PKG_NAME )
226: THEN
227: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
228: END IF;
229: --
230:
231: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
227: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
228: END IF;
229: --
230:
231: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
232: FND_MSG_PUB.initialize ;
233: END IF;
234: --
235: p_return_status := FND_API.G_RET_STS_SUCCESS ;
231: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
232: FND_MSG_PUB.initialize ;
233: END IF;
234: --
235: p_return_status := FND_API.G_RET_STS_SUCCESS ;
236: p_row_locked := FND_API.G_TRUE ;
237: --
238: OPEN C;
239: --
232: FND_MSG_PUB.initialize ;
233: END IF;
234: --
235: p_return_status := FND_API.G_RET_STS_SUCCESS ;
236: p_row_locked := FND_API.G_TRUE ;
237: --
238: OPEN C;
239: --
240: FETCH C INTO Recinfo;
242: CLOSE C;
243: FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_DELETED');
244: FND_MSG_PUB.Add;
245: CLOSE c;
246: RAISE FND_API.G_EXC_ERROR ;
247: END IF;
248: CLOSE C;
249: IF
250: (
267: NULL ;
268: ELSE
269: FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_CHANGED') ;
270: FND_MSG_PUB.Add ;
271: RAISE FND_API.G_EXC_ERROR ;
272: END IF;
273:
274: --
275: /*--
272: END IF;
273:
274: --
275: /*--
276: IF FND_API.To_Boolean ( p_commit ) THEN
277: COMMIT WORK;
278: END iF;
279: --
280: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
285: --
286: WHEN App_Exception.Record_Lock_Exception THEN
287: --
288: ROLLBACK TO Lock_Row_Pvt ;
289: p_row_locked := FND_API.G_FALSE ;
290: p_return_status := FND_API.G_RET_STS_ERROR ;
291: --
292: WHEN FND_API.G_EXC_ERROR THEN
293: --
286: WHEN App_Exception.Record_Lock_Exception THEN
287: --
288: ROLLBACK TO Lock_Row_Pvt ;
289: p_row_locked := FND_API.G_FALSE ;
290: p_return_status := FND_API.G_RET_STS_ERROR ;
291: --
292: WHEN FND_API.G_EXC_ERROR THEN
293: --
294: ROLLBACK TO Lock_Row_Pvt ;
288: ROLLBACK TO Lock_Row_Pvt ;
289: p_row_locked := FND_API.G_FALSE ;
290: p_return_status := FND_API.G_RET_STS_ERROR ;
291: --
292: WHEN FND_API.G_EXC_ERROR THEN
293: --
294: ROLLBACK TO Lock_Row_Pvt ;
295: p_return_status := FND_API.G_RET_STS_ERROR;
296: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
291: --
292: WHEN FND_API.G_EXC_ERROR THEN
293: --
294: ROLLBACK TO Lock_Row_Pvt ;
295: p_return_status := FND_API.G_RET_STS_ERROR;
296: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
297: p_data => p_msg_data );
298: --
299: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
295: p_return_status := FND_API.G_RET_STS_ERROR;
296: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
297: p_data => p_msg_data );
298: --
299: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
300: --
301: ROLLBACK TO Lock_Row_Pvt ;
302: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
303: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
298: --
299: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
300: --
301: ROLLBACK TO Lock_Row_Pvt ;
302: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
303: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
304: p_data => p_msg_data );
305: --
306: WHEN OTHERS THEN
305: --
306: WHEN OTHERS THEN
307: --
308: ROLLBACK TO Lock_Row_Pvt ;
309: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
310: --
311: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
312: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
313: l_api_name);
328:
329: PROCEDURE Update_Row
330: (
331: p_api_version IN NUMBER,
332: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
333: p_commit IN VARCHAR2 := FND_API.G_FALSE,
334: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
335: p_return_status OUT NOCOPY VARCHAR2,
336: p_msg_count OUT NOCOPY NUMBER,
329: PROCEDURE Update_Row
330: (
331: p_api_version IN NUMBER,
332: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
333: p_commit IN VARCHAR2 := FND_API.G_FALSE,
334: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
335: p_return_status OUT NOCOPY VARCHAR2,
336: p_msg_count OUT NOCOPY NUMBER,
337: p_msg_data OUT NOCOPY VARCHAR2,
330: (
331: p_api_version IN NUMBER,
332: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
333: p_commit IN VARCHAR2 := FND_API.G_FALSE,
334: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
335: p_return_status OUT NOCOPY VARCHAR2,
336: p_msg_count OUT NOCOPY NUMBER,
337: p_msg_data OUT NOCOPY VARCHAR2,
338: --
359: BEGIN
360: --
361: SAVEPOINT Update_Row_Pvt ;
362: --
363: IF NOT FND_API.Compatible_API_Call ( l_api_version,
364: p_api_version,
365: l_api_name,
366: G_PKG_NAME )
367: THEN
364: p_api_version,
365: l_api_name,
366: G_PKG_NAME )
367: THEN
368: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
369: END IF;
370: --
371:
372: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
368: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
369: END IF;
370: --
371:
372: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
373: FND_MSG_PUB.initialize ;
374: END IF;
375: --
376: p_return_status := FND_API.G_RET_STS_SUCCESS ;
372: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
373: FND_MSG_PUB.initialize ;
374: END IF;
375: --
376: p_return_status := FND_API.G_RET_STS_SUCCESS ;
377: --
378:
379: P_LAST_UPDATE_DATE := SYSDATE;
380: if(P_MODE = 'I') then
391: end if;
392: else
393: FND_MESSAGE.SET_NAME('FND', 'SYSTEM-INVALID ARGS');
394: FND_MSG_PUB.Add ;
395: raise FND_API.G_EXC_ERROR ;
396: end if;
397: --
398: UPDATE psb_flex_mapping_set_values
399: SET
409: last_update_login = p_last_update_login
410: WHERE Flex_Mapping_Value_ID = p_Flex_Mapping_Value_ID;
411:
412: IF (SQL%NOTFOUND) THEN
413: RAISE FND_API.G_EXC_ERROR ;
414: END IF;
415:
416: --
417: --
416: --
417: --
418: -- Standard check of p_commit.
419:
420: IF FND_API.To_Boolean ( p_commit ) THEN
421: COMMIT WORK;
422: END iF;
423: --
424: -- Standard call to get message count and if count is 1, get message info.
426: p_data => p_msg_data );
427: --
428: EXCEPTION
429:
430: WHEN FND_API.G_EXC_ERROR THEN
431: --
432: ROLLBACK TO Update_Row_Pvt ;
433: p_return_status := FND_API.G_RET_STS_ERROR;
434: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
429:
430: WHEN FND_API.G_EXC_ERROR THEN
431: --
432: ROLLBACK TO Update_Row_Pvt ;
433: p_return_status := FND_API.G_RET_STS_ERROR;
434: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
435: p_data => p_msg_data );
436: --
437: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
433: p_return_status := FND_API.G_RET_STS_ERROR;
434: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
435: p_data => p_msg_data );
436: --
437: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
438: --
439: ROLLBACK TO Update_Row_Pvt ;
440: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
441: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
436: --
437: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
438: --
439: ROLLBACK TO Update_Row_Pvt ;
440: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
441: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
442: p_data => p_msg_data );
443: --
444: WHEN OTHERS THEN
443: --
444: WHEN OTHERS THEN
445: --
446: ROLLBACK TO Update_Row_Pvt ;
447: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
448: --
449: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
450: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
451: l_api_name);
466:
467: PROCEDURE Delete_Row
468: (
469: p_api_version IN NUMBER,
470: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
471: p_commit IN VARCHAR2 := FND_API.G_FALSE,
472: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
473: p_return_status OUT NOCOPY VARCHAR2,
474: p_msg_count OUT NOCOPY NUMBER,
467: PROCEDURE Delete_Row
468: (
469: p_api_version IN NUMBER,
470: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
471: p_commit IN VARCHAR2 := FND_API.G_FALSE,
472: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
473: p_return_status OUT NOCOPY VARCHAR2,
474: p_msg_count OUT NOCOPY NUMBER,
475: p_msg_data OUT NOCOPY VARCHAR2,
468: (
469: p_api_version IN NUMBER,
470: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
471: p_commit IN VARCHAR2 := FND_API.G_FALSE,
472: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
473: p_return_status OUT NOCOPY VARCHAR2,
474: p_msg_count OUT NOCOPY NUMBER,
475: p_msg_data OUT NOCOPY VARCHAR2,
476: --
484: BEGIN
485: --
486: SAVEPOINT Delete_Row_Pvt ;
487: --
488: IF NOT FND_API.Compatible_API_Call ( l_api_version,
489: p_api_version,
490: l_api_name,
491: G_PKG_NAME )
492: THEN
489: p_api_version,
490: l_api_name,
491: G_PKG_NAME )
492: THEN
493: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
494: END IF;
495: --
496:
497: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
493: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
494: END IF;
495: --
496:
497: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
498: FND_MSG_PUB.initialize ;
499: END IF;
500: --
501: p_return_status := FND_API.G_RET_STS_SUCCESS ;
497: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
498: FND_MSG_PUB.initialize ;
499: END IF;
500: --
501: p_return_status := FND_API.G_RET_STS_SUCCESS ;
502: --
503:
504: --
505: -- Deleting the record in psb_flex_mapping_set_values.
511: RAISE NO_DATA_FOUND ;
512: END IF;
513:
514: --
515: IF FND_API.To_Boolean ( p_commit ) THEN
516: COMMIT WORK;
517: END iF;
518: --
519: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
520: p_data => p_msg_data );
521:
522: EXCEPTION
523: --
524: WHEN FND_API.G_EXC_ERROR THEN
525: --
526: ROLLBACK TO Delete_Row_Pvt ;
527: p_return_status := FND_API.G_RET_STS_ERROR;
528: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
523: --
524: WHEN FND_API.G_EXC_ERROR THEN
525: --
526: ROLLBACK TO Delete_Row_Pvt ;
527: p_return_status := FND_API.G_RET_STS_ERROR;
528: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
529: p_data => p_msg_data );
530: --
531: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
527: p_return_status := FND_API.G_RET_STS_ERROR;
528: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
529: p_data => p_msg_data );
530: --
531: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
532: --
533: ROLLBACK TO Delete_Row_Pvt ;
534: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
535: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
530: --
531: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
532: --
533: ROLLBACK TO Delete_Row_Pvt ;
534: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
535: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
536: p_data => p_msg_data );
537: --
538: WHEN OTHERS THEN
537: --
538: WHEN OTHERS THEN
539: --
540: ROLLBACK TO Delete_Row_Pvt ;
541: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
542: --
543: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
544: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
545: l_api_name);
560:
561: PROCEDURE Sets_Insert_Row
562: (
563: p_api_version IN NUMBER,
564: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
565: p_commit IN VARCHAR2 := FND_API.G_FALSE,
566: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
567: p_return_status OUT NOCOPY VARCHAR2,
568: p_msg_count OUT NOCOPY NUMBER,
561: PROCEDURE Sets_Insert_Row
562: (
563: p_api_version IN NUMBER,
564: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
565: p_commit IN VARCHAR2 := FND_API.G_FALSE,
566: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
567: p_return_status OUT NOCOPY VARCHAR2,
568: p_msg_count OUT NOCOPY NUMBER,
569: p_msg_data OUT NOCOPY VARCHAR2,
562: (
563: p_api_version IN NUMBER,
564: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
565: p_commit IN VARCHAR2 := FND_API.G_FALSE,
566: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
567: p_return_status OUT NOCOPY VARCHAR2,
568: p_msg_count OUT NOCOPY NUMBER,
569: p_msg_data OUT NOCOPY VARCHAR2,
570: --
596: BEGIN
597: --
598: SAVEPOINT Sets_Insert_Row_Pvt ;
599: --
600: IF NOT FND_API.Compatible_API_Call ( l_api_version,
601: p_api_version,
602: l_api_name,
603: G_PKG_NAME )
604: THEN
601: p_api_version,
602: l_api_name,
603: G_PKG_NAME )
604: THEN
605: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
606: END IF;
607: --
608:
609: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
605: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
606: END IF;
607: --
608:
609: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
610: FND_MSG_PUB.initialize ;
611: END IF;
612: --
613: p_return_status := FND_API.G_RET_STS_SUCCESS ;
609: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
610: FND_MSG_PUB.initialize ;
611: END IF;
612: --
613: p_return_status := FND_API.G_RET_STS_SUCCESS ;
614: --
615: P_LAST_UPDATE_DATE := SYSDATE;
616: if(P_MODE = 'I') then
617: P_LAST_UPDATED_BY := 1;
627: end if;
628: else
629: FND_MESSAGE.SET_NAME( 'FND', 'SYSTEM-INVALID ARGS');
630: FND_MSG_PUB.Add ;
631: raise FND_API.G_EXC_ERROR;
632: end if;
633: --
634:
635: INSERT INTO psb_flex_mapping_sets
658: OPEN C;
659: FETCH C INTO l_Row_Id;
660: IF (C%NOTFOUND) THEN
661: CLOSE C;
662: RAISE FND_API.G_EXC_ERROR ;
663: END IF;
664: CLOSE C;
665: --
666:
664: CLOSE C;
665: --
666:
667: --
668: IF FND_API.To_Boolean ( p_commit ) THEN
669: COMMIT WORK;
670: END iF;
671: --
672: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
673: p_data => p_msg_data );
674: --
675: EXCEPTION
676: --
677: WHEN FND_API.G_EXC_ERROR THEN
678: --
679: ROLLBACK TO Sets_Insert_Row_Pvt ;
680: p_return_status := FND_API.G_RET_STS_ERROR;
681: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
676: --
677: WHEN FND_API.G_EXC_ERROR THEN
678: --
679: ROLLBACK TO Sets_Insert_Row_Pvt ;
680: p_return_status := FND_API.G_RET_STS_ERROR;
681: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
682: p_data => p_msg_data );
683: --
684: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
680: p_return_status := FND_API.G_RET_STS_ERROR;
681: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
682: p_data => p_msg_data );
683: --
684: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
685: --
686: ROLLBACK TO Sets_Insert_Row_Pvt ;
687: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
688: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
683: --
684: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
685: --
686: ROLLBACK TO Sets_Insert_Row_Pvt ;
687: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
688: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
689: p_data => p_msg_data );
690: --
691: WHEN OTHERS THEN
690: --
691: WHEN OTHERS THEN
692: --
693: ROLLBACK TO Sets_Insert_Row_Pvt ;
694: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
695: --
696: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
697: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
698: l_api_name);
708:
709: PROCEDURE Sets_Delete_Row
710: (
711: p_api_version IN NUMBER,
712: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
713: p_commit IN VARCHAR2 := FND_API.G_FALSE,
714: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
715: p_return_status OUT NOCOPY VARCHAR2,
716: p_msg_count OUT NOCOPY NUMBER,
709: PROCEDURE Sets_Delete_Row
710: (
711: p_api_version IN NUMBER,
712: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
713: p_commit IN VARCHAR2 := FND_API.G_FALSE,
714: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
715: p_return_status OUT NOCOPY VARCHAR2,
716: p_msg_count OUT NOCOPY NUMBER,
717: p_msg_data OUT NOCOPY VARCHAR2,
710: (
711: p_api_version IN NUMBER,
712: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
713: p_commit IN VARCHAR2 := FND_API.G_FALSE,
714: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
715: p_return_status OUT NOCOPY VARCHAR2,
716: p_msg_count OUT NOCOPY NUMBER,
717: p_msg_data OUT NOCOPY VARCHAR2,
718: --
727: BEGIN
728: --
729: SAVEPOINT Sets_Delete_Row_Pvt ;
730: --
731: IF NOT FND_API.Compatible_API_Call ( l_api_version,
732: p_api_version,
733: l_api_name,
734: G_PKG_NAME )
735: THEN
732: p_api_version,
733: l_api_name,
734: G_PKG_NAME )
735: THEN
736: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
737: END IF;
738: --
739:
740: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
736: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
737: END IF;
738: --
739:
740: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
741: FND_MSG_PUB.initialize ;
742: END IF;
743: --
744: p_return_status := FND_API.G_RET_STS_SUCCESS ;
740: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
741: FND_MSG_PUB.initialize ;
742: END IF;
743: --
744: p_return_status := FND_API.G_RET_STS_SUCCESS ;
745: --
746: DELETE psb_flex_mapping_set_values
747: WHERE flex_mapping_set_id = p_flex_mapping_set_id ;
748:
753: RAISE NO_DATA_FOUND ;
754: END IF;
755:
756: --
757: IF FND_API.To_Boolean ( p_commit ) THEN
758: COMMIT WORK;
759: END iF;
760: --
761: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
762: p_data => p_msg_data );
763:
764: EXCEPTION
765: --
766: WHEN FND_API.G_EXC_ERROR THEN
767: --
768: ROLLBACK TO Sets_Delete_Row_Pvt ;
769: p_return_status := FND_API.G_RET_STS_ERROR;
770: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
765: --
766: WHEN FND_API.G_EXC_ERROR THEN
767: --
768: ROLLBACK TO Sets_Delete_Row_Pvt ;
769: p_return_status := FND_API.G_RET_STS_ERROR;
770: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
771: p_data => p_msg_data );
772: --
773: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
769: p_return_status := FND_API.G_RET_STS_ERROR;
770: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
771: p_data => p_msg_data );
772: --
773: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
774: --
775: ROLLBACK TO Sets_Delete_Row_Pvt ;
776: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
777: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
772: --
773: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
774: --
775: ROLLBACK TO Sets_Delete_Row_Pvt ;
776: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
777: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
778: p_data => p_msg_data );
779: --
780: WHEN OTHERS THEN
779: --
780: WHEN OTHERS THEN
781: --
782: ROLLBACK TO Sets_Delete_Row_Pvt ;
783: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
784: --
785: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
786: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
787: l_api_name);
798:
799: PROCEDURE Sets_Lock_Row
800: (
801: p_api_version IN NUMBER,
802: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
803: p_commit IN VARCHAR2 := FND_API.G_FALSE,
804: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
805: p_return_status OUT NOCOPY VARCHAR2,
806: p_msg_count OUT NOCOPY NUMBER,
799: PROCEDURE Sets_Lock_Row
800: (
801: p_api_version IN NUMBER,
802: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
803: p_commit IN VARCHAR2 := FND_API.G_FALSE,
804: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
805: p_return_status OUT NOCOPY VARCHAR2,
806: p_msg_count OUT NOCOPY NUMBER,
807: p_msg_data OUT NOCOPY VARCHAR2,
800: (
801: p_api_version IN NUMBER,
802: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
803: p_commit IN VARCHAR2 := FND_API.G_FALSE,
804: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
805: p_return_status OUT NOCOPY VARCHAR2,
806: p_msg_count OUT NOCOPY NUMBER,
807: p_msg_data OUT NOCOPY VARCHAR2,
808: --
834: BEGIN
835: --
836: SAVEPOINT Lock_Row_Pvt ;
837: --
838: IF NOT FND_API.Compatible_API_Call ( l_api_version,
839: p_api_version,
840: l_api_name,
841: G_PKG_NAME )
842: THEN
839: p_api_version,
840: l_api_name,
841: G_PKG_NAME )
842: THEN
843: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
844: END IF;
845: --
846:
847: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
843: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
844: END IF;
845: --
846:
847: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
848: FND_MSG_PUB.initialize ;
849: END IF;
850: --
851: p_return_status := FND_API.G_RET_STS_SUCCESS ;
847: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
848: FND_MSG_PUB.initialize ;
849: END IF;
850: --
851: p_return_status := FND_API.G_RET_STS_SUCCESS ;
852: p_row_locked := FND_API.G_TRUE ;
853: --
854: OPEN C;
855: --
848: FND_MSG_PUB.initialize ;
849: END IF;
850: --
851: p_return_status := FND_API.G_RET_STS_SUCCESS ;
852: p_row_locked := FND_API.G_TRUE ;
853: --
854: OPEN C;
855: --
856: FETCH C INTO Recinfo;
858: CLOSE C;
859: FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_DELETED');
860: FND_MSG_PUB.Add;
861: CLOSE c;
862: RAISE FND_API.G_EXC_ERROR ;
863: END IF;
864: CLOSE C;
865: IF
866: (
876: NULL ;
877: ELSE
878: FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_CHANGED') ;
879: FND_MSG_PUB.Add ;
880: RAISE FND_API.G_EXC_ERROR ;
881: END IF;
882:
883: --
884:
886: --
887: WHEN App_Exception.Record_Lock_Exception THEN
888: --
889: ROLLBACK TO Lock_Row_Pvt ;
890: p_row_locked := FND_API.G_FALSE ;
891: p_return_status := FND_API.G_RET_STS_ERROR ;
892: --
893: WHEN FND_API.G_EXC_ERROR THEN
894: --
887: WHEN App_Exception.Record_Lock_Exception THEN
888: --
889: ROLLBACK TO Lock_Row_Pvt ;
890: p_row_locked := FND_API.G_FALSE ;
891: p_return_status := FND_API.G_RET_STS_ERROR ;
892: --
893: WHEN FND_API.G_EXC_ERROR THEN
894: --
895: ROLLBACK TO Lock_Row_Pvt ;
889: ROLLBACK TO Lock_Row_Pvt ;
890: p_row_locked := FND_API.G_FALSE ;
891: p_return_status := FND_API.G_RET_STS_ERROR ;
892: --
893: WHEN FND_API.G_EXC_ERROR THEN
894: --
895: ROLLBACK TO Lock_Row_Pvt ;
896: p_return_status := FND_API.G_RET_STS_ERROR;
897: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
892: --
893: WHEN FND_API.G_EXC_ERROR THEN
894: --
895: ROLLBACK TO Lock_Row_Pvt ;
896: p_return_status := FND_API.G_RET_STS_ERROR;
897: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
898: p_data => p_msg_data );
899: --
900: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
896: p_return_status := FND_API.G_RET_STS_ERROR;
897: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
898: p_data => p_msg_data );
899: --
900: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
901: --
902: ROLLBACK TO Lock_Row_Pvt ;
903: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
904: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
899: --
900: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
901: --
902: ROLLBACK TO Lock_Row_Pvt ;
903: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
904: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
905: p_data => p_msg_data );
906: --
907: WHEN OTHERS THEN
906: --
907: WHEN OTHERS THEN
908: --
909: ROLLBACK TO Lock_Row_Pvt ;
910: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
911: --
912: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
913: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
914: l_api_name);
929:
930: PROCEDURE Sets_Update_Row
931: (
932: p_api_version IN NUMBER,
933: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
934: p_commit IN VARCHAR2 := FND_API.G_FALSE,
935: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
936: p_return_status OUT NOCOPY VARCHAR2,
937: p_msg_count OUT NOCOPY NUMBER,
930: PROCEDURE Sets_Update_Row
931: (
932: p_api_version IN NUMBER,
933: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
934: p_commit IN VARCHAR2 := FND_API.G_FALSE,
935: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
936: p_return_status OUT NOCOPY VARCHAR2,
937: p_msg_count OUT NOCOPY NUMBER,
938: p_msg_data OUT NOCOPY VARCHAR2,
931: (
932: p_api_version IN NUMBER,
933: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
934: p_commit IN VARCHAR2 := FND_API.G_FALSE,
935: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
936: p_return_status OUT NOCOPY VARCHAR2,
937: p_msg_count OUT NOCOPY NUMBER,
938: p_msg_data OUT NOCOPY VARCHAR2,
939: --
958: BEGIN
959: --
960: SAVEPOINT Update_Row_Pvt ;
961: --
962: IF NOT FND_API.Compatible_API_Call ( l_api_version,
963: p_api_version,
964: l_api_name,
965: G_PKG_NAME )
966: THEN
963: p_api_version,
964: l_api_name,
965: G_PKG_NAME )
966: THEN
967: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
968: END IF;
969: --
970:
971: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
967: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
968: END IF;
969: --
970:
971: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
972: FND_MSG_PUB.initialize ;
973: END IF;
974: --
975: p_return_status := FND_API.G_RET_STS_SUCCESS ;
971: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
972: FND_MSG_PUB.initialize ;
973: END IF;
974: --
975: p_return_status := FND_API.G_RET_STS_SUCCESS ;
976: --
977:
978: P_LAST_UPDATE_DATE := SYSDATE;
979: if(P_MODE = 'I') then
990: end if;
991: else
992: FND_MESSAGE.SET_NAME('FND', 'SYSTEM-INVALID ARGS');
993: FND_MSG_PUB.Add ;
994: raise FND_API.G_EXC_ERROR ;
995: end if;
996: --
997: UPDATE psb_flex_mapping_sets
998: SET
1005: last_update_login = p_last_update_login
1006: WHERE Flex_Mapping_Set_ID = p_Flex_Mapping_Set_ID;
1007:
1008: IF (SQL%NOTFOUND) THEN
1009: RAISE FND_API.G_EXC_ERROR ;
1010: END IF;
1011:
1012: --
1013: --
1012: --
1013: --
1014: -- Standard check of p_commit.
1015:
1016: IF FND_API.To_Boolean ( p_commit ) THEN
1017: COMMIT WORK;
1018: END iF;
1019: --
1020: -- Standard call to get message count and if count is 1, get message info.
1022: p_data => p_msg_data );
1023: --
1024: EXCEPTION
1025:
1026: WHEN FND_API.G_EXC_ERROR THEN
1027: --
1028: ROLLBACK TO Update_Row_Pvt ;
1029: p_return_status := FND_API.G_RET_STS_ERROR;
1030: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
1025:
1026: WHEN FND_API.G_EXC_ERROR THEN
1027: --
1028: ROLLBACK TO Update_Row_Pvt ;
1029: p_return_status := FND_API.G_RET_STS_ERROR;
1030: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
1031: p_data => p_msg_data );
1032: --
1033: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1029: p_return_status := FND_API.G_RET_STS_ERROR;
1030: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
1031: p_data => p_msg_data );
1032: --
1033: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1034: --
1035: ROLLBACK TO Update_Row_Pvt ;
1036: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1037: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
1032: --
1033: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1034: --
1035: ROLLBACK TO Update_Row_Pvt ;
1036: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1037: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
1038: p_data => p_msg_data );
1039: --
1040: WHEN OTHERS THEN
1039: --
1040: WHEN OTHERS THEN
1041: --
1042: ROLLBACK TO Update_Row_Pvt ;
1043: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1044: --
1045: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1046: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
1047: l_api_name);
1061:
1062: FUNCTION Get_Mapped_CCID
1063: (
1064: p_api_version IN NUMBER,
1065: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1066: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1067: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1068: --
1069: p_CCID IN NUMBER,
1062: FUNCTION Get_Mapped_CCID
1063: (
1064: p_api_version IN NUMBER,
1065: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1066: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1067: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1068: --
1069: p_CCID IN NUMBER,
1070: p_Budget_Year_Type_ID IN NUMBER,
1063: (
1064: p_api_version IN NUMBER,
1065: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1066: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1067: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1068: --
1069: p_CCID IN NUMBER,
1070: p_Budget_Year_Type_ID IN NUMBER,
1071: p_Flexfield_Mapping_Set_ID IN NUMBER,
1205:
1206: Flex_Info (p_flex_code => l_flex_code,
1207: p_return_status => l_return_status);
1208:
1209: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
1210: raise FND_API.G_EXC_ERROR;
1211: end if;
1212:
1213: -- +++++++++++++++++
1206: Flex_Info (p_flex_code => l_flex_code,
1207: p_return_status => l_return_status);
1208:
1209: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
1210: raise FND_API.G_EXC_ERROR;
1211: end if;
1212:
1213: -- +++++++++++++++++
1214: -- Explode p_ccid into individual segments to l_seg_val array
1222: n_segments => g_num_segs,
1223: segments => l_seg_val ) then
1224:
1225: FND_MSG_PUB.Add;
1226: raise FND_API.G_EXC_ERROR;
1227: end if;
1228:
1229:
1230: -- +++++++++++++++++
1349: combination_id => l_ccid) then
1350:
1351: FND_MSG_PUB.Add;
1352: l_ccid := 0;
1353: raise FND_API.G_EXC_ERROR;
1354: end if;
1355:
1356: --+++++++++++++++++++
1357: -- return the new ccid
1360: return(l_ccid);
1361:
1362: EXCEPTION
1363:
1364: when FND_API.G_EXC_ERROR then
1365: if (c_py%ISOPEN) then
1366: close c_py;
1367: end if;
1368: if (c_cy%ISOPEN) then
1369: close c_cy;
1370: end if;
1371: l_ccid := 0;
1372:
1373: when FND_API.G_EXC_UNEXPECTED_ERROR then
1374: if (c_py%ISOPEN) then
1375: close c_py;
1376: end if;
1377: if (c_cy%ISOPEN) then
1399:
1400: FUNCTION Get_Mapped_Account
1401: (
1402: p_api_version IN NUMBER,
1403: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1404: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1405: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1406: --
1407: p_CCID IN NUMBER,
1400: FUNCTION Get_Mapped_Account
1401: (
1402: p_api_version IN NUMBER,
1403: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1404: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1405: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1406: --
1407: p_CCID IN NUMBER,
1408: p_Budget_Year_Type_ID IN NUMBER,
1401: (
1402: p_api_version IN NUMBER,
1403: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1404: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1405: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1406: --
1407: p_CCID IN NUMBER,
1408: p_Budget_Year_Type_ID IN NUMBER,
1409: p_Flexfield_Mapping_Set_ID IN NUMBER
1422: l_cy_from_value VARCHAR2(150);
1423: l_to_value VARCHAR2(150);
1424: l_seg_value VARCHAR2(150);
1425: l_segment_delimiter VARCHAR2(1);
1426: l_py_exists VARCHAR2(1) := FND_API.G_FALSE;
1427:
1428: CURSOR c_flex IS
1429: SELECT s.chart_of_accounts_id,fnd.concatenated_segment_delimiter
1430: FROM psb_flex_mapping_sets f,
1526:
1527: Flex_Info (p_flex_code => l_flex_code,
1528: p_return_status => l_return_status);
1529:
1530: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
1531: raise FND_API.G_EXC_ERROR;
1532: end if;
1533:
1534: -- +++++++++++++++++
1527: Flex_Info (p_flex_code => l_flex_code,
1528: p_return_status => l_return_status);
1529:
1530: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
1531: raise FND_API.G_EXC_ERROR;
1532: end if;
1533:
1534: -- +++++++++++++++++
1535: -- Explode p_ccid into individual segments to l_seg_val array
1543: n_segments => g_num_segs,
1544: segments => l_seg_val ) then
1545:
1546: FND_MSG_PUB.Add;
1547: raise FND_API.G_EXC_ERROR;
1548: end if;
1549:
1550:
1551: -- +++++++++++++++++
1557: l_cy_budget_year_type_id := c_cy_type_rec.budget_year_type_id;
1558: end loop;
1559:
1560: for c_py_exists_rec in c_py_exists loop
1561: l_py_exists := FND_API.G_TRUE;
1562: -- indicates if py budget group id is before cy where the ccid segment
1563: -- of the cy will be mapped back to py ; all other py will be unchanged
1564: end loop;
1565:
1594: if (c_seginfo_subs%NOTFOUND) THEN
1595: close c_seginfo_subs;
1596: else
1597:
1598: if (FND_API.to_Boolean(l_py_exists)) then
1599:
1600: -- ++ substitute ws ccid from value for py to value
1601: open c_cy;
1602: fetch c_cy into l_cy_from_value;
1639: return(l_concat_segments);
1640:
1641: EXCEPTION
1642:
1643: when FND_API.G_EXC_ERROR then
1644: if (c_cy%ISOPEN) then
1645: close c_cy;
1646: end if;
1647: l_concat_segments := p_ccid;
1645: close c_cy;
1646: end if;
1647: l_concat_segments := p_ccid;
1648:
1649: when FND_API.G_EXC_UNEXPECTED_ERROR then
1650: if (c_cy%ISOPEN) then
1651: close c_cy;
1652: end if;
1653: l_concat_segments := p_ccid;
1699: -- If the composed Code Combination does not already exist in GL, it is
1700: -- dynamically created
1701: --+++++++++++++++++++
1702:
1703: p_return_status := FND_API.G_RET_STS_SUCCESS;
1704:
1705:
1706: EXCEPTION
1707:
1704:
1705:
1706: EXCEPTION
1707:
1708: when FND_API.G_EXC_ERROR then
1709: p_return_status := FND_API.G_RET_STS_ERROR;
1710:
1711: when FND_API.G_EXC_UNEXPECTED_ERROR then
1712: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1705:
1706: EXCEPTION
1707:
1708: when FND_API.G_EXC_ERROR then
1709: p_return_status := FND_API.G_RET_STS_ERROR;
1710:
1711: when FND_API.G_EXC_UNEXPECTED_ERROR then
1712: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1713:
1707:
1708: when FND_API.G_EXC_ERROR then
1709: p_return_status := FND_API.G_RET_STS_ERROR;
1710:
1711: when FND_API.G_EXC_UNEXPECTED_ERROR then
1712: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1713:
1714: when OTHERS then
1715: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1708: when FND_API.G_EXC_ERROR then
1709: p_return_status := FND_API.G_RET_STS_ERROR;
1710:
1711: when FND_API.G_EXC_UNEXPECTED_ERROR then
1712: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1713:
1714: when OTHERS then
1715: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1716:
1711: when FND_API.G_EXC_UNEXPECTED_ERROR then
1712: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1713:
1714: when OTHERS then
1715: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1716:
1717: END Flex_Info;
1718:
1719: /*-------------------------------------------------------------------------*/