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 ;
81: --
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,
144: p_data => p_msg_data );
145: --
146: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
147: --
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
154: --
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);
161: END if;
162: --
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);
161: END if;
162: --
163: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
159: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
160: l_api_name);
161: END if;
162: --
163: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
164: p_data => p_msg_data );
165: --
166: END Insert_Row;
167: /*-------------------------------------------------------------------------*/
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 ;
228: p_row_locked := FND_API.G_TRUE ;
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
273: THEN
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
283: COMMIT WORK;
284: END iF;
285: --
286: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
287: p_data => p_msg_data );
288: --
289: EXCEPTION
290: --
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
300: --
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
307: --
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
314: --
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);
321: END if;
322: --
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);
321: END if;
322: --
323: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
319: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
320: l_api_name);
321: END if;
322: --
323: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
324: p_data => p_msg_data );
325: --
326: END Lock_Row;
327: /* ----------------------------------------------------------------------- */
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 ;
379: --
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,
413: p_data => p_msg_data );
414: --
415: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
416: --
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
423: --
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);
430: END if;
431: --
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);
430: END if;
431: --
432: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
428: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
429: l_api_name);
430: END if;
431: --
432: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
433: p_data => p_msg_data );
434: --
435: END Update_Row;
436: /* ----------------------------------------------------------------------- */
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 ;
484: --
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,
546: p_data => p_msg_data );
547: --
548: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
549: --
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
556: --
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);
563: END if;
564: --
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);
563: END if;
564: --
565: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
561: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
562: l_api_name);
563: END if;
564: --
565: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
566: p_data => p_msg_data );
567: --
568: END Delete_Row;
569: /* ----------------------------------------------------------------------- */
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 ;
635: --
651:
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:
666: EXCEPTION
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: --
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: --
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
742: --
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
748: --
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);
758: END if;
759: --
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);
758: END if;
759: --
760: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
756: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
757: l_api_name);
758: END if;
759: --
760: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
761: p_data => p_msg_data );
762: --
763: END Find_GL_Budget ;
764: /*---------------------------------------------------------------------------*/