23: +=======================================================================*/
24: PROCEDURE Insert_Row
25: (
26: p_api_version IN NUMBER,
27: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
28: p_commit IN VARCHAR2 := FND_API.G_FALSE,
29: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
30: p_return_status OUT NOCOPY VARCHAR2,
31: p_msg_count OUT NOCOPY NUMBER,
24: PROCEDURE Insert_Row
25: (
26: p_api_version IN NUMBER,
27: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
28: p_commit IN VARCHAR2 := FND_API.G_FALSE,
29: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
30: p_return_status OUT NOCOPY VARCHAR2,
31: p_msg_count OUT NOCOPY NUMBER,
32: p_msg_data OUT NOCOPY VARCHAR2,
25: (
26: p_api_version IN NUMBER,
27: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
28: p_commit IN VARCHAR2 := FND_API.G_FALSE,
29: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
30: p_return_status OUT NOCOPY VARCHAR2,
31: p_msg_count OUT NOCOPY NUMBER,
32: p_msg_data OUT NOCOPY VARCHAR2,
33: --
63: BEGIN
64: --
65: SAVEPOINT Insert_Row_Pvt ;
66: --
67: IF NOT FND_API.Compatible_API_Call ( l_api_version,
68: p_api_version,
69: l_api_name,
70: G_PKG_NAME )
71: THEN
68: p_api_version,
69: l_api_name,
70: G_PKG_NAME )
71: THEN
72: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
73: END IF;
74: --
75:
76: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
72: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
73: END IF;
74: --
75:
76: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
77: FND_MSG_PUB.initialize ;
78: END IF;
79: --
80: p_return_status := FND_API.G_RET_STS_SUCCESS ;
76: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
77: FND_MSG_PUB.initialize ;
78: END IF;
79: --
80: p_return_status := FND_API.G_RET_STS_SUCCESS ;
81: --
82:
83: IF ( p_gl_budget_id IS NULL ) THEN
84: OPEN C2 ;
120: OPEN C;
121: FETCH C INTO p_row_id;
122: IF (C%NOTFOUND) THEN
123: CLOSE C;
124: RAISE FND_API.G_EXC_ERROR ;
125: END IF;
126: CLOSE C;
127: --
128:
126: CLOSE C;
127: --
128:
129: --
130: IF FND_API.To_Boolean ( p_commit ) THEN
131: COMMIT WORK;
132: END iF;
133: --
134: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
135: p_data => p_msg_data );
136: --
137: EXCEPTION
138: --
139: WHEN FND_API.G_EXC_ERROR THEN
140: --
141: ROLLBACK TO Insert_Row_Pvt ;
142: p_return_status := FND_API.G_RET_STS_ERROR;
143: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
138: --
139: WHEN FND_API.G_EXC_ERROR THEN
140: --
141: ROLLBACK TO Insert_Row_Pvt ;
142: p_return_status := FND_API.G_RET_STS_ERROR;
143: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
144: p_data => p_msg_data );
145: --
146: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
142: p_return_status := FND_API.G_RET_STS_ERROR;
143: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
144: p_data => p_msg_data );
145: --
146: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
147: --
148: ROLLBACK TO Insert_Row_Pvt ;
149: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
150: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
145: --
146: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
147: --
148: ROLLBACK TO Insert_Row_Pvt ;
149: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
150: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
151: p_data => p_msg_data );
152: --
153: WHEN OTHERS THEN
152: --
153: WHEN OTHERS THEN
154: --
155: ROLLBACK TO Insert_Row_Pvt ;
156: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
157: --
158: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
159: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
160: l_api_name);
173: +==========================================================================*/
174: PROCEDURE Lock_Row
175: (
176: p_api_version IN NUMBER,
177: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
178: p_commit IN VARCHAR2 := FND_API.G_FALSE,
179: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
180: p_return_status OUT NOCOPY VARCHAR2,
181: p_msg_count OUT NOCOPY NUMBER,
174: PROCEDURE Lock_Row
175: (
176: p_api_version IN NUMBER,
177: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
178: p_commit IN VARCHAR2 := FND_API.G_FALSE,
179: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
180: p_return_status OUT NOCOPY VARCHAR2,
181: p_msg_count OUT NOCOPY NUMBER,
182: p_msg_data OUT NOCOPY VARCHAR2,
175: (
176: p_api_version IN NUMBER,
177: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
178: p_commit IN VARCHAR2 := FND_API.G_FALSE,
179: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
180: p_return_status OUT NOCOPY VARCHAR2,
181: p_msg_count OUT NOCOPY NUMBER,
182: p_msg_data OUT NOCOPY VARCHAR2,
183: --
210: BEGIN
211: --
212: SAVEPOINT Lock_Row_Pvt ;
213: --
214: IF NOT FND_API.Compatible_API_Call ( l_api_version,
215: p_api_version,
216: l_api_name,
217: G_PKG_NAME )
218: THEN
215: p_api_version,
216: l_api_name,
217: G_PKG_NAME )
218: THEN
219: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
220: END IF;
221: --
222:
223: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
219: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
220: END IF;
221: --
222:
223: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
224: FND_MSG_PUB.initialize ;
225: END IF;
226: --
227: p_return_status := FND_API.G_RET_STS_SUCCESS ;
223: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
224: FND_MSG_PUB.initialize ;
225: END IF;
226: --
227: p_return_status := FND_API.G_RET_STS_SUCCESS ;
228: p_row_locked := FND_API.G_TRUE ;
229: --
230: OPEN C;
231: --
224: FND_MSG_PUB.initialize ;
225: END IF;
226: --
227: p_return_status := FND_API.G_RET_STS_SUCCESS ;
228: p_row_locked := FND_API.G_TRUE ;
229: --
230: OPEN C;
231: --
232: FETCH C INTO Recinfo;
233: IF (C%NOTFOUND) then
234: CLOSE C;
235: FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_DELETED');
236: FND_MSG_PUB.Add;
237: RAISE FND_API.G_EXC_ERROR ;
238: END IF;
239: CLOSE C;
240: IF
241: (
274: Null;
275: ELSE
276: FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_CHANGED');
277: FND_MSG_PUB.Add;
278: RAISE FND_API.G_EXC_ERROR ;
279: END IF;
280:
281: --
282: IF FND_API.To_Boolean ( p_commit ) THEN
278: RAISE FND_API.G_EXC_ERROR ;
279: END IF;
280:
281: --
282: IF FND_API.To_Boolean ( p_commit ) THEN
283: COMMIT WORK;
284: END iF;
285: --
286: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
290: --
291: WHEN APP_EXCEPTION.RECORD_LOCK_EXCEPTION THEN
292: --
293: ROLLBACK TO Lock_Row_Pvt ;
294: p_row_locked := FND_API.G_FALSE;
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: --
291: WHEN APP_EXCEPTION.RECORD_LOCK_EXCEPTION THEN
292: --
293: ROLLBACK TO Lock_Row_Pvt ;
294: p_row_locked := FND_API.G_FALSE;
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_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_ERROR THEN
300: --
301: ROLLBACK TO Lock_Row_Pvt ;
302: p_return_status := FND_API.G_RET_STS_ERROR;
303: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
298: --
299: WHEN FND_API.G_EXC_ERROR THEN
300: --
301: ROLLBACK TO Lock_Row_Pvt ;
302: p_return_status := FND_API.G_RET_STS_ERROR;
303: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
304: p_data => p_msg_data );
305: --
306: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
302: p_return_status := FND_API.G_RET_STS_ERROR;
303: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
304: p_data => p_msg_data );
305: --
306: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
307: --
308: ROLLBACK TO Lock_Row_Pvt ;
309: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
310: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
305: --
306: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
307: --
308: ROLLBACK TO Lock_Row_Pvt ;
309: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
310: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
311: p_data => p_msg_data );
312: --
313: WHEN OTHERS THEN
312: --
313: WHEN OTHERS THEN
314: --
315: ROLLBACK TO Lock_Row_Pvt ;
316: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
317: --
318: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
319: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
320: l_api_name);
333: +==========================================================================*/
334: PROCEDURE Update_Row
335: (
336: p_api_version IN NUMBER,
337: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
338: p_commit IN VARCHAR2 := FND_API.G_FALSE,
339: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
340: p_return_status OUT NOCOPY VARCHAR2,
341: p_msg_count OUT NOCOPY NUMBER,
334: PROCEDURE Update_Row
335: (
336: p_api_version IN NUMBER,
337: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
338: p_commit IN VARCHAR2 := FND_API.G_FALSE,
339: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
340: p_return_status OUT NOCOPY VARCHAR2,
341: p_msg_count OUT NOCOPY NUMBER,
342: p_msg_data OUT NOCOPY VARCHAR2,
335: (
336: p_api_version IN NUMBER,
337: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
338: p_commit IN VARCHAR2 := FND_API.G_FALSE,
339: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
340: p_return_status OUT NOCOPY VARCHAR2,
341: p_msg_count OUT NOCOPY NUMBER,
342: p_msg_data OUT NOCOPY VARCHAR2,
343: --
361: BEGIN
362: --
363: SAVEPOINT Update_Row_Pvt ;
364: --
365: IF NOT FND_API.Compatible_API_Call ( l_api_version,
366: p_api_version,
367: l_api_name,
368: G_PKG_NAME )
369: THEN
366: p_api_version,
367: l_api_name,
368: G_PKG_NAME )
369: THEN
370: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
371: END IF;
372: --
373:
374: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
370: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
371: END IF;
372: --
373:
374: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
375: FND_MSG_PUB.initialize ;
376: END IF;
377: --
378: p_return_status := FND_API.G_RET_STS_SUCCESS ;
374: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
375: FND_MSG_PUB.initialize ;
376: END IF;
377: --
378: p_return_status := FND_API.G_RET_STS_SUCCESS ;
379: --
380:
381: UPDATE psb_gl_budgets
382: SET gl_budget_set_id = p_gl_budget_set_id ,
395: RAISE NO_DATA_FOUND ;
396: END IF;
397:
398: --
399: IF FND_API.To_Boolean ( p_commit ) THEN
400: COMMIT WORK;
401: END iF;
402: --
403: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
404: p_data => p_msg_data );
405: --
406: EXCEPTION
407: --
408: WHEN FND_API.G_EXC_ERROR THEN
409: --
410: ROLLBACK TO Update_Row_Pvt ;
411: p_return_status := FND_API.G_RET_STS_ERROR;
412: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
407: --
408: WHEN FND_API.G_EXC_ERROR THEN
409: --
410: ROLLBACK TO Update_Row_Pvt ;
411: p_return_status := FND_API.G_RET_STS_ERROR;
412: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
413: p_data => p_msg_data );
414: --
415: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
411: p_return_status := FND_API.G_RET_STS_ERROR;
412: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
413: p_data => p_msg_data );
414: --
415: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
416: --
417: ROLLBACK TO Update_Row_Pvt ;
418: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
419: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
414: --
415: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
416: --
417: ROLLBACK TO Update_Row_Pvt ;
418: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
419: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
420: p_data => p_msg_data );
421: --
422: WHEN OTHERS THEN
421: --
422: WHEN OTHERS THEN
423: --
424: ROLLBACK TO Update_Row_Pvt ;
425: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
426: --
427: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
428: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
429: l_api_name);
442: +==========================================================================*/
443: PROCEDURE Delete_Row
444: (
445: p_api_version IN NUMBER,
446: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
447: p_commit IN VARCHAR2 := FND_API.G_FALSE,
448: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
449: p_return_status OUT NOCOPY VARCHAR2,
450: p_msg_count OUT NOCOPY NUMBER,
443: PROCEDURE Delete_Row
444: (
445: p_api_version IN NUMBER,
446: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
447: p_commit IN VARCHAR2 := FND_API.G_FALSE,
448: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
449: p_return_status OUT NOCOPY VARCHAR2,
450: p_msg_count OUT NOCOPY NUMBER,
451: p_msg_data OUT NOCOPY VARCHAR2,
444: (
445: p_api_version IN NUMBER,
446: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
447: p_commit IN VARCHAR2 := FND_API.G_FALSE,
448: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
449: p_return_status OUT NOCOPY VARCHAR2,
450: p_msg_count OUT NOCOPY NUMBER,
451: p_msg_data OUT NOCOPY VARCHAR2,
452: --
466: BEGIN
467: --
468: SAVEPOINT Delete_Row_Pvt ;
469: --
470: IF NOT FND_API.Compatible_API_Call ( l_api_version,
471: p_api_version,
472: l_api_name,
473: G_PKG_NAME )
474: THEN
471: p_api_version,
472: l_api_name,
473: G_PKG_NAME )
474: THEN
475: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
476: END IF;
477: --
478:
479: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
475: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
476: END IF;
477: --
478:
479: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
480: FND_MSG_PUB.initialize ;
481: END IF ;
482: --
483: p_return_status := FND_API.G_RET_STS_SUCCESS ;
479: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
480: FND_MSG_PUB.initialize ;
481: END IF ;
482: --
483: p_return_status := FND_API.G_RET_STS_SUCCESS ;
484: --
485:
486: --
487: -- Deleting dependent detail records from psb_account_position_set_lines.
498:
499: PSB_Set_Relation_PVT.Delete_Entity_Relation
500: (
501: p_api_version => 1.0 ,
502: p_init_msg_list => FND_API.G_FALSE,
503: p_commit => FND_API.G_FALSE,
504: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
505: p_return_status => l_return_status,
506: p_msg_count => l_msg_count,
499: PSB_Set_Relation_PVT.Delete_Entity_Relation
500: (
501: p_api_version => 1.0 ,
502: p_init_msg_list => FND_API.G_FALSE,
503: p_commit => FND_API.G_FALSE,
504: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
505: p_return_status => l_return_status,
506: p_msg_count => l_msg_count,
507: p_msg_data => l_msg_data,
500: (
501: p_api_version => 1.0 ,
502: p_init_msg_list => FND_API.G_FALSE,
503: p_commit => FND_API.G_FALSE,
504: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
505: p_return_status => l_return_status,
506: p_msg_count => l_msg_count,
507: p_msg_data => l_msg_data,
508: --
509: p_entity_type => 'GBS' ,
510: p_entity_id => l_gl_budget_id
511: );
512: --
513: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
514: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
515: END IF ;
516:
517: --
510: p_entity_id => l_gl_budget_id
511: );
512: --
513: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
514: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
515: END IF ;
516:
517: --
518: -- End deleting set related information.
528: RAISE NO_DATA_FOUND ;
529: END IF;
530:
531: --
532: IF FND_API.To_Boolean ( p_commit ) THEN
533: COMMIT WORK;
534: END iF;
535: --
536: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
537: p_data => p_msg_data );
538:
539: EXCEPTION
540: --
541: WHEN FND_API.G_EXC_ERROR THEN
542: --
543: ROLLBACK TO Delete_Row_Pvt ;
544: p_return_status := FND_API.G_RET_STS_ERROR;
545: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
540: --
541: WHEN FND_API.G_EXC_ERROR THEN
542: --
543: ROLLBACK TO Delete_Row_Pvt ;
544: p_return_status := FND_API.G_RET_STS_ERROR;
545: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
546: p_data => p_msg_data );
547: --
548: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
544: p_return_status := FND_API.G_RET_STS_ERROR;
545: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
546: p_data => p_msg_data );
547: --
548: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
549: --
550: ROLLBACK TO Delete_Row_Pvt ;
551: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
552: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
547: --
548: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
549: --
550: ROLLBACK TO Delete_Row_Pvt ;
551: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
552: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
553: p_data => p_msg_data );
554: --
555: WHEN OTHERS THEN
554: --
555: WHEN OTHERS THEN
556: --
557: ROLLBACK TO Delete_Row_Pvt ;
558: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
559: --
560: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
561: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
562: l_api_name);
579: --
580: PROCEDURE Find_GL_Budget
581: (
582: p_api_version IN NUMBER,
583: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
584: p_commit IN VARCHAR2 := FND_API.G_FALSE,
585: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
586: p_return_status OUT NOCOPY VARCHAR2,
587: p_msg_count OUT NOCOPY NUMBER,
580: PROCEDURE Find_GL_Budget
581: (
582: p_api_version IN NUMBER,
583: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
584: p_commit IN VARCHAR2 := FND_API.G_FALSE,
585: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
586: p_return_status OUT NOCOPY VARCHAR2,
587: p_msg_count OUT NOCOPY NUMBER,
588: p_msg_data OUT NOCOPY VARCHAR2,
581: (
582: p_api_version IN NUMBER,
583: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
584: p_commit IN VARCHAR2 := FND_API.G_FALSE,
585: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
586: p_return_status OUT NOCOPY VARCHAR2,
587: p_msg_count OUT NOCOPY NUMBER,
588: p_msg_data OUT NOCOPY VARCHAR2,
589: --
589: --
590: p_gl_budget_set_id IN NUMBER,
591: p_code_combination_id IN NUMBER,
592: p_start_date IN DATE,
593: p_dual_posting_type IN VARCHAR2 := FND_API.G_MISS_CHAR,
594: --
595: p_gl_budget_version_id OUT NOCOPY NUMBER
596: )
597: IS
617: l_dual_posting_type VARCHAR2(1) ;
618: --
619: BEGIN
620: --
621: IF NOT FND_API.Compatible_API_Call ( l_api_version,
622: p_api_version,
623: l_api_name,
624: G_PKG_NAME )
625: THEN
622: p_api_version,
623: l_api_name,
624: G_PKG_NAME )
625: THEN
626: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
627: END IF;
628: --
629:
630: IF FND_API.To_Boolean ( p_init_msg_list ) THEN
626: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
627: END IF;
628: --
629:
630: IF FND_API.To_Boolean ( p_init_msg_list ) THEN
631: FND_MSG_PUB.initialize ;
632: END IF;
633: --
634: p_return_status := FND_API.G_RET_STS_SUCCESS ;
630: IF FND_API.To_Boolean ( p_init_msg_list ) THEN
631: FND_MSG_PUB.initialize ;
632: END IF;
633: --
634: p_return_status := FND_API.G_RET_STS_SUCCESS ;
635: --
636:
637: --
638: -- Missing p_dual_posting_type is equivalent to 'P' (Permanent).
636:
637: --
638: -- Missing p_dual_posting_type is equivalent to 'P' (Permanent).
639: --
640: IF ( p_dual_posting_type = FND_API.G_MISS_CHAR) OR
641: ( p_dual_posting_type IS NULL)
642: THEN
643: l_dual_posting_type := 'P' ;
644: ELSE
652: IF l_dual_posting_type NOT IN ( 'A', 'P' ) THEN
653: Fnd_Message.Set_Name ('PSB', 'PSB_INVALID_ARGUMENT') ;
654: Fnd_Message.Set_Token('ROUTINE', l_api_name ) ;
655: FND_MSG_PUB.Add;
656: RAISE FND_API.G_EXC_ERROR ;
657: END IF;
658:
659:
660: BEGIN
667: WHEN no_data_found THEN
668: Fnd_Message.Set_Name ('PSB', 'PSB_INVALID_ARGUMENT') ;
669: Fnd_Message.Set_Token('ROUTINE', l_api_name ) ;
670: FND_MSG_PUB.Add;
671: RAISE FND_API.G_EXC_ERROR ;
672: END ;
673:
674: --
675: -- End validatiing parameters.
722: p_gl_budget_version_id := NULL ;
723: END IF ;
724:
725: --
726: IF FND_API.To_Boolean ( p_commit ) THEN
727: COMMIT WORK;
728: END IF;
729: --
730: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
731: p_data => p_msg_data );
732: --
733: EXCEPTION
734: --
735: WHEN FND_API.G_EXC_ERROR THEN
736: --
737: p_return_status := FND_API.G_RET_STS_ERROR;
738: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
739: p_data => p_msg_data );
733: EXCEPTION
734: --
735: WHEN FND_API.G_EXC_ERROR THEN
736: --
737: p_return_status := FND_API.G_RET_STS_ERROR;
738: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
739: p_data => p_msg_data );
740: --
741: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
737: p_return_status := FND_API.G_RET_STS_ERROR;
738: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
739: p_data => p_msg_data );
740: --
741: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
742: --
743: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
744: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
745: p_data => p_msg_data );
739: p_data => p_msg_data );
740: --
741: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
742: --
743: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
744: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
745: p_data => p_msg_data );
746: --
747: WHEN OTHERS THEN
749: IF ( l_find_ccid_csr%ISOPEN ) THEN
750: CLOSE l_find_ccid_csr ;
751: END IF ;
752: --
753: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
754: --
755: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
756: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
757: l_api_name);